die :: String -> [String] -> Arduino a
die m ms = do f <- gets bailOut
              liftIO $ f m ms

-- | Which modes does this pin support?
die :: String -> [String] -> Arduino a
die m ms = do f <- gets bailOut
              liftIO $ f m ms

-- | Which modes does this pin support?
die m ms = do f <- gets bailOut
              liftIO $ f m ms

-- | Which modes does this pin support?