sumDiv n = (+1) $
           sum $
           map (\x -> x + n `div` x) $
           filter (\x -> n `mod` x == 0) $
           takeWhile (\x -> x*x<n) [2..]

friends :: [(Int, Int)]
friends = filter (\(x, s) -> x < s && sumDiv s == x) $ map (\x -> (x, sumDiv x)) [1..]

main = mapM print $ take 14 friends