sum_sq_to :: (Num a, Ord a, Enum a) => a->[a]
sum_sq_to x = sum takeWhile (<x) [x^2 | x<-[1..]]