m@main=getLine>>=print.(1#)>>m
0#_=0
n#(a:b)=(sum[2|a<')']+n-1)#b+1