Competitive Programming in Haskell: Primes and factoring import Control.Arrow ( (>>>) ) import Primes ( totient ) main :: IO () main = interact $ input >>> map solve ...