private Ġfun Ġread Ln () Ġ= Ġread Line () !! Ċ private Ġfun Ġread Long () Ġ= Ġread Ln (). to Long () Ċ private Ġfun Ġread Long s () Ġ= Ġread Ln (). split (" Ġ"). map Ġ{ Ġit . to Long () Ġ} Ċ private Ġfun Ġread Ints () Ġ= Ġread Ln (). split (" Ġ"). map Ġ{ Ġit . toInt () Ġ} Ċ Ċ fun Ġmain ( args : ĠArray < String >) Ġ{ ĊĠĠĠ Ġval ĠT Ġ= Ġread Long () ĊĠĠĠ Ġfor Ġ( i Ġin Ġ 0 Ġuntil ĠT ) Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġ( N , ĠM ) Ġ= Ġread Ints () ĊĠĠĠĠĠĠĠ Ġvar Ġans Ġ= Ġ 0 L ĊĠĠĠĠĠĠĠ Ġval Ġcnt Ġ= ĠArray ( N Ġ+ Ġ 1 ) Ġ{ Ġ 1 L Ġ} ĊĠĠĠĠĠĠĠ Ġfor Ġ( b Ġin Ġ 2 Ġuntil ĠN Ġ+ Ġ 1 ) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġans Ġ+= Ġcnt [ M Ġ% Ġb ] ĊĠĠĠĠĠĠĠĠĠĠĠ Ġfor Ġ( a Ġin ĠM Ġ% Ġb Ġuntil ĠN Ġ+ Ġ 1 Ġstep Ġb ) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ++ cnt [ a ] ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠ Ġprintln ( ans ) ĊĠĠĠ Ġ} Ċ } Ċ