fun Ġmain () Ġ{ ĊĠĠĠ Ġprint ( solution ()) Ċ } Ċ Ċ fun Ġsolution (): ĠString Ġ{ ĊĠĠĠ Ġval ĠS : ĠString Ġ= Ġread Line () !! ĊĠĠĠ Ġval Ġal ph ab ets : ĠMutable Map < Char , ĠInt > Ġ= Ġmutable Map Of () ĊĠĠĠ Ġvar Ġc : ĠChar Ġ= Ġ' a ' ĊĠĠĠ Ġwhile Ġ( c Ġ<= Ġ' z ') ĊĠĠĠĠĠĠĠ Ġal ph ab ets [ c ++] Ġ= Ġ 0 ĊĠĠĠ Ġfor Ġ( s Ġin ĠS ) ĊĠĠĠĠĠĠĠ Ġif Ġ( alph ab ets . containsKey ( s )) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġal ph ab ets [ s ] Ġ= Ġal ph ab ets [ s ] !!. plus ( 1 ) ĊĠĠĠ Ġreturn Ġal ph ab ets . values . join ToString (" Ġ") Ċ }