r=r%1
~(x:t)%n=n:[n|x>1]++t%(3-n)
main=putStr$take 10000r>>=show