main = interact $ show . digital_root . read digital_root = until(<10)$sum.map(read.(:"")).show