while 1=1do
Scanf.scanf"1%s@1
"(fun s->Printf.printf"1%s4%s6%s4%s1
"s s s s)done