-- | Debugging only: print the given string on stdout.
debug :: String -> Arduino ()
debug s = do f <- gets message
             liftIO $ f s

-- | Bailing out: print the given string on stdout and die
debug :: String -> Arduino ()
debug s = do f <- gets message
             liftIO $ f s

-- | Bailing out: print the given string on stdout and die
debug s = do f <- gets message
             liftIO $ f s

-- | Bailing out: print the given string on stdout and die