main=putStr$12:9998`take`f[1]2>>=show
f(a:b)x|l<-x:[x|a>1]=l++f(b++l)(3-x)