fun Ġmain () Ġ{ ĊĠĠĠ Ġval ĠT Ġ= Ġread Line () !!. toInt () ĊĠĠĠ Ġrepeat ( T ) Ġ{ Ġi Ġ-> ĊĠĠĠĠĠĠĠ Ġval ĠN Ġ= Ġread Line () !! ĊĊĠĠĠĠĠĠĠ Ġval Ġdigit Pairs Ġ= ĠN . map Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġif Ġ( it Ġ== Ġ' 4 ') Ġ' 2 ' Ġto Ġ' 2 ' Ġelse Ġit Ġto Ġ' 0 ' ĊĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠĠĠĠĠ Ġfun ĠString . to Readable Number (): ĠString Ġ= Ġtrim Start (' 0 '). let Ġ{ Ġif Ġ( it . isEmpty ()) Ġ" 0 " Ġelse Ġit Ġ} ĊĠĠĠĠĠĠĠ Ġval ĠA Ġ= Ġdigit Pairs . as Sequence (). map Ġ{ Ġit . first Ġ}. join ToString (" "). to Readable Number () ĊĠĠĠĠĠĠĠ Ġval ĠB Ġ= Ġdigit Pairs . as Sequence (). map Ġ{ Ġit . second Ġ}. join ToString (" "). to Readable Number () ĊĊĠĠĠĠĠĠĠ Ġprintln (" Case Ġ# ${ i Ġ+ Ġ 1 }: Ġ$ A Ġ$ B ") ĊĠĠĠ Ġ} Ċ }