digitSum n
| q == 0 = r
where
main
= mapM_ (printf digitSum
) [123, 456, 789]
CmRpZ2l0U3VtIG4KICAgIHwgcSA9PSAwICAgICA9ICByCiAgICB8IG90aGVyd2lzZSAgPSAgciArIGRpZ2l0U3VtIHEKICAgIHdoZXJlCiAgICAgICAgcSA9IGRpdiBuIDEwCiAgICAgICAgciA9IG1vZCBuIDEwCgpwcmludGYgZiB4ID0gcHV0U3RyTG4gJCBzaG93IHggKysgIiAtPiAiICsrIHNob3cgKGYgeCkKCm1haW4gPSBtYXBNXyAocHJpbnRmIGRpZ2l0U3VtKSBbMTIzLCA0NTYsIDc4OV0=