>>> whenM (pure False) $ putTextLn "No text :(" >>> whenM (pure True) $ putTextLn "Yes text :)" Yes text :) >>> whenM (Just True) (pure ()) Just () >>> whenM (Just False) (pure ()) Just () >>> whenM Nothing (pure ()) Nothing
>>> whenM (pure False) $ putTextLn "No text :(" >>> whenM (pure True) $ putTextLn "Yes text :)" Yes text :) >>> whenM (Just True) (pure ()) Just () >>> whenM (Just False) (pure ()) Just () >>> whenM Nothing (pure ()) Nothing
d1 $ whenmod 8 4 (density 2) (sound "bd sn kurt")