lete :: Label -> IO ()
delete label = do
    text <- labelGetText label :: IO String
    labelSetText label $ take (length text - 1) text


delete :: Label -> IO ()
delete label = do
    text <- labelGetText label :: IO String
    labelSetText label $ take (length text - 1) text
delete label = do
    text <- labelGetText label :: IO String
    labelSetText label $ take (length text - 1) text