s%x=print$until(\y->s y>=s x&&s y<s x++"~")(*2)1
main=mapM(show%)[1..100]