erwrite :: String -> Label -> Bool -> IO ()
overwrite string label hasAnswer =
    if hasAnswer
        then setMainLabelText label string
        else append string label False


overwrite :: String -> Label -> Bool -> IO ()
overwrite string label hasAnswer =
    if hasAnswer
        then setMainLabelText label string
        else append string label False
overwrite string label hasAnswer =
    if hasAnswer
        then setMainLabelText label string
        else append string label False