let(-)=Scanf.scanf"%s@	"String.sub
let rec($)i n="** *"=i-1^i+40-3&i+1$n+1;"
-"=i+9-2||i+1$n;Printf.printf"%d
"n;i+1$0;;0$0