import Ġkotlin . system . exit Process Ċ Ċ if Ġ( args . size Ġ!= Ġ 1 ) Ġ{ ĊĠĠĠ Ġprintln (" One Ġargument Ġis Ġexpected ") ĊĠĠĠ Ġexit Process ( 1 ) Ċ } Ċ Ċ val Ġlist Ġ= Ġargs [ 0 ]. toCharArray () ĊĠĠĠĠĠĠĠ Ġ. map ( Character :: get Numeric Value ) ĊĠĠĠĠĠĠĠ Ġ. filter Ġ{ Ġv Ġ-> Ġv Ġ>= Ġ 0 Ġ} Ċ Ċ if Ġ( list . isEmpty ()) Ġ{ ĊĠĠĠ Ġprintln (" 0 ") ĊĠĠĠ Ġexit Process ( 0 ) Ċ } Ċ Ċ var Ġsum Ġ= Ġ 0 Ċ var Ġprevious Ġ= Ġlist . last () Ċ for Ġ( i Ġin Ġ 0 Ġuntil Ġlist . size ) Ġ{ ĊĠĠĠ Ġval Ġcurrent Ġ= Ġlist [ i ] ĊĊĠĠĠ Ġif Ġ( current Ġ== Ġprevious ) Ġ{ ĊĠĠĠĠĠĠĠ Ġsum Ġ+= Ġcurrent ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġprevious Ġ= Ġcurrent Ċ } Ċ Ċ println ( sum ) Ċ