pend :: String -> Label -> Bool -> IO ()
append string label _ = do
    current <- labelGetText label
    setMainLabelText label (current ++ string)


append :: String -> Label -> Bool -> IO ()
append string label _ = do
    current <- labelGetText label
    setMainLabelText label (current ++ string)
append string label _ = do
    current <- labelGetText label
    setMainLabelText label (current ++ string)