mkDivider :: String -> String
mkDivider s = const s `concatMap` [1 .. gameWidth `div` 2]
mkDivider :: String -> String
mkDivider s = const s `concatMap` [1 .. gameWidth `div` 2]
mkDivider s = const s `concatMap` [1 .. gameWidth `div` 2]