email = f 563336463087636494483562699911264524058212996 where f n = let (q,r) = divMod n 137 in chr (fromIntegral r) : case q of { 0 -> []; _ -> f q }