gennumber :: (Num a) => a -> a
gennumber 0 = 1
gennumber x = (gennumber (x - 1)) + x ^ 2

gennumbers :: (Enum a, Num a) => a -> [a]
gennumbers a = [x ^ 5 | x <- [1..a]]

squares :: (Num a) => [a] -> [a]
squares a = [x ^ 2 | x <- a]

hugemath :: (Num a, Enum a) => a -> [a]
hugemath x = squares (gennumbers (gennumber x))