main=f 22;f n|n<10^8=putStr(show n)>>f(div(n*7)3)