eul6 lim = squaresum - sumsquare
  where
    squaresum = sq (reduce (+) [1..lim])
    sumsquare = reduce (+) [sq x | x <- [1..lim]]
eul6 lim = squaresum - sumsquare
  where
    squaresum = sq (reduce (+) [1..lim])
    sumsquare = reduce (+) [sq x | x <- [1..lim]]
eul6 lim = squaresum - sumsquare
  where
    squaresum = sq (reduce (+) [1..lim])
    sumsquare = reduce (+) [sq x | x <- [1..lim]]