((rec(f n h)(if(> n 0)(dotimes`3(print h(+ . `1))(f(- n 1)#`"   ,h,(+ . `1)."))))(read)"")