let rec s x=Scanf.scanf" %s"f x
and f a b=b>0&a>"+"&s(Printf.printf"%d
"(b/3);0)||a>""&s(b+1);;s 0