for i = 1 to 30 do let s=read_line()^"__" in let rec f x i = if s.[i]=='|' then f (x+1) (i+1) else if s.[i+1]=='|' then f (x+1) (i+2) else x in print_int(f 0 0); print_newline() done