f:=method(m,$,if(m>0,for(!,1,3,writeln($,!);f(m-1,"   "..$..!.."."))))
f(File standardInput readLine asNumber,"")