fudlogue :: F a b -> IO ()
fudlogue topfudget
fudlogue
IO
topfudget :: F a b
main = fudlogue (shellF "Quit" quitButtonF)