fun Ġmain ( args : ĠArray < String >) Ġ{ ĊĠĠĠ Ġval Ġn Ġ= Ġread Line () !!. toInt () ĊĠĠĠ Ġrepeat ( n ) Ġ{ ĊĠĠĠĠĠĠĠ Ġprint (" Case Ġ# ${ it Ġ+ Ġ 1 }: Ġ") ĊĠĠĠĠĠĠĠ Ġsolve ( readLine () !! ) ĊĠĠĠ Ġ} Ċ } Ċ Ċ fun Ġsolve ( s : ĠString ) Ġ{ ĊĠĠĠ Ġval Ġempty Ġ= Ġs . filter Ġ{ Ġit Ġ== Ġ'.' Ġ}. count () ĊĠĠĠ Ġval Ġb Ġ= Ġs . filter Ġ{ Ġit Ġ== Ġ' B ' Ġ}. count () ĊĠĠĠ Ġif Ġ(( b Ġ== Ġ 1 Ġ&& Ġempty Ġ== Ġ 1 ) Ġ|| Ġ( 1 Ġ<= Ġempty Ġ&& Ġ 2 Ġ<= Ġb )) Ġprintln (" Y ") ĊĠĠĠ Ġelse Ġprintln (" N ") Ċ } Ċ