cbuttonM :: IO a -> String -> Widget a
cbuttonM x slabel= static $ do
        button slabel ! id slabel ! atr "class" "btn btn-primary" ! atr "type" "button" ! atr "style" "margin-right: 10px; margin-left: 10px; margin-top: 3px" `pass` OnClick
        liftIO x
      `continuePerch` slabel
cbuttonM :: IO a -> String -> Widget a
cbuttonM x slabel= static $ do
        button slabel ! id slabel ! atr "class" "btn btn-primary" ! atr "type" "button" ! atr "style" "margin-right: 10px; margin-left: 10px; margin-top: 3px" `pass` OnClick
        liftIO x
      `continuePerch` slabel
cbuttonM x slabel= static $ do
        button slabel ! id slabel ! atr "class" "btn btn-primary" ! atr "type" "button" ! atr "style" "margin-right: 10px; margin-left: 10px; margin-top: 3px" `pass` OnClick
        liftIO x
      `continuePerch` slabel