totient n = length $ filter (\p -> gcd p n == 1) [1 .. n - 1]
cototient n = n - totient n
main = do putStrLn(show(map cototient [1 .. 50]))

It took me FUCKING 100 HOURS to get this to work right.