ear :: Label -> Label -> IORef Bool -> IO ()
clear label1 label2 hasAnswer = do
    writeIORef hasAnswer False
    labelSetText label1 ""
    labelSetText label2 ""


clear :: Label -> Label -> IORef Bool -> IO ()
clear label1 label2 hasAnswer = do
    writeIORef hasAnswer False
    labelSetText label1 ""
    labelSetText label2 ""
clear label1 label2 hasAnswer = do
    writeIORef hasAnswer False
    labelSetText label1 ""
    labelSetText label2 ""