score :: Score -> IO ()
score s = printText $ "- Current score -"
                    : ""
                    : show s
                    : divider
                    : ""
                    : ["Play again? (y/n)"]
score :: Score -> IO ()
score s = printText $ "- Current score -"
                    : ""
                    : show s
                    : divider
                    : ""
                    : ["Play again? (y/n)"]
score s = printText $ "- Current score -"
                    : ""
                    : show s
                    : divider
                    : ""
                    : ["Play again? (y/n)"]