main=interact(>>=f)
f '\n'="\n"
f x=mapM id("1234">>["01"])!!(read[x]+3)