1353C - Board Moves

Возможно я не прав,но мне кажется,что наилучшими решением будет переместить все фигуры в центр доски,но по каким-то причинам это не работает...

import Control.Monad   
   
   
brd :: Int -> Int 
brd n= sum $  [8*p*p|p<-b] where 
  b = [1..div n 2]

main =do
  t <- fmap read getLine
  ns <- replicateM t (fmap read getLine)
  forM_ ns (print . brd)