// ĠK T - 1 4 9 6 1 Ċ // ĠIG NORE _ BACKEND : ĠJVM Ċ // ĠWITH _ RUNTIME Ċ Ċ fun ĠlistOf Factor ( number : ĠInt ): ĠList < Int > Ġ{ ĊĠĠĠ Ġtail rec Ġfun ĠlistOf Factor ( number : ĠInt , Ġacc : ĠList < Int >): ĠList < Int > Ġ{ ĊĠĠĠĠĠĠĠ Ġ( 2 .. number ). forEach Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġif Ġ( number Ġ% Ġit Ġ== Ġ 0 ) Ġreturn ĠlistOf Factor ( number Ġ/ Ġit , Ġacc Ġ+ Ġit ) ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠ Ġreturn Ġacc ĊĠĠĠ Ġ} ĊĠĠĠ Ġreturn ĠlistOf Factor ( number , Ġempty List ()) Ċ } Ċ Ċ fun Ġbox (): ĠString Ġ{ ĊĠĠĠ Ġval Ġfactors Ġ= ĠlistOf Factor ( 6 0 ) ĊĠĠĠ Ġreturn Ġif Ġ( factors . size Ġ== Ġ 4 ) Ġ" OK " Ġelse Ġ" Fail : Ġ$ factors " Ċ } Ċ