digitSum n
= let { q
= div n
10 ; r
= mod n
10 } in if q == 0 then r else r + digitSum q
main
= mapM_ (printf digitSum
) [123, 456, 789]
CmRpZ2l0U3VtIG4gPSBsZXQgeyBxID0gZGl2IG4gMTAgOyByID0gbW9kIG4gMTAgfSBpbgogICAgaWYgcSA9PSAwIHRoZW4gciBlbHNlIHIgKyBkaWdpdFN1bSBxCgpwcmludGYgZiB4ID0gcHV0U3RyTG4gJCBzaG93IHggKysgIiAtPiAiICsrIHNob3cgKGYgeCkKCm1haW4gPSBtYXBNXyAocHJpbnRmIGRpZ2l0U3VtKSBbMTIzLCA0NTYsIDc4OV0=