m#s=take(m-1)s++m#drop m s
s%1118=""
s%n=' ':show(s!!n)++s!!n#s%(n+1)
main=putStr$'1':[1,3..]%1