Reinier Lamers schreef:

>
> printint :: Int -> [Char]
> printint = map chr . map (+0x30) . reverse . map (`mod` 10) .
> takeWhile (>0) . iterate (`div`10)
>

Most of the time I use this:

digits :: Integer -> [Int]
digits = map (flip(-)48.ord) . show