#    1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234
perl -E'@u="0335443554366887798866555766"=~/./g;$_+=<>;say"$_ is ",$_=$_-4?$_<20?$u[$_]||4:$u[chop]+$u[18+$_]:magic,"."while/\d/'