4 let numKnights = read line1 -- :: Int
5 let answers = [knights k | k <- [1..numKnights]]
6 putStrLn $ unlines $ map show answers
14 knights k = corner + edge + middle
15 where corner = 2 * (4 * k ^ 2 - 16)
16 edge = 2 * (k - 4) * (2 * k ^ 2 - 12)
17 middle = ((k - 4) ^ 2 * (k ^ 2 - 9)) `div` 2