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