fun Ġmain ( args : ĠArray < String >) Ġ{ ĊĠĠĠ Ġprintln (" Processing : Ġ${ args [ 0 ]} ") ĊĠĠĠ Ġprintln ( count ( args [ 0 ], 0 )) Ċ } Ċ Ċ tail rec Ġfun Ġcount ( input : ĠString , Ġcounter : ĠInt ): ĠInt Ġ= ĊĠĠĠ Ġwhen ( input . length ) Ġ{ ĊĠĠĠĠĠĠĠĠ 0 Ġ-> Ġ Ġcounter ĊĠĠĠĠĠĠĠ Ġelse Ġ-> Ġif Ġ( input [ 0 ]. compareTo (' (' )== 0 ) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġcount ( input . substring ( 1 , Ġinput . length ), Ġcounter Ġ- 1 ) ĊĠĠĠĠĠĠĠ Ġ} Ġelse Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġcount ( input . substring ( 1 , Ġinput . length ), Ġcounter Ġ+ 1 ) ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ}