main=mapM(putStrLn.(257#))[2..36]
0#r=[]
n#r=(n`div`r)#r++[(['0'..'9']++['A'..])!!(n`mod`r)]