padCenter :: String -> String
padCenter s
  | length s < gameWidth = padCenter $ " " ++ s ++ " "
  | otherwise            = s
padCenter :: String -> String
padCenter s
  | length s < gameWidth = padCenter $ " " ++ s ++ " "
  | otherwise            = s
padCenter s
  | length s < gameWidth = padCenter $ " " ++ s ++ " "
  | otherwise            = s