import Ġarrow . fx . IO Ċ Ċ object ĠConsole Ġ{ ĊĠĠĠ Ġval Ġask : Ġ( String ) Ġ-> ĠIO < String > Ġ= Ġ{ Ġquestion Ġ-> Ġputs ( question ). flatMap Ġ{ Ġreads Ġ} Ġ} ĊĊĠĠĠ Ġval Ġputs : Ġ( String ) Ġ-> ĠIO < Unit > Ġ= Ġ{ Ġstr Ġ-> ĠIO Ġ{ Ġprintln ( str ) Ġ} Ġ} ĊĊĠĠĠ Ġprivate Ġval Ġreads : ĠIO < String > Ġ= ĠIO Ġ{ Ġread Line () !! Ġ} Ċ } Ċ