(#@-) :: UI Element -> String -> UI Element
e #@- k = e # modify style (aListDelete k)
(#@-) :: UI Element -> String -> UI Element
e #@- k = e # modify style (aListDelete k)
e #@- k = e # modify style (aListDelete k)