main=f 0
f n=getLine>>=(n#)
n#s|length s>n=n%s
n#s=0%s
i%s=putChar(s!!i)>>f(i+1)