f :: Int -> Int
f x = x*x

integrate:: (Int -> Int) -> Int -> Int -> Int -> Int
integrate func from to step 
	| from + step == to = 0
	| otherwise = let next = from + step
	                  rect = step * func(next)
                  in
                    rect + integrate func next to step

main = do
	c <- getContents
	let i = map read $ lines c :: [Int]
	    o = map (integrate f 0 600) i
	mapM_ print o