swishCommands :: [SwishAction] -> SwishStateIO ()
swishCommands = mapM_ swishCommand
swishCommands :: [SwishAction] -> SwishStateIO ()
swishCommands = mapM_ swishCommand
swishCommands = mapM_ swishCommand