In celebration of the new Pokemon.

rowlet.hs

-- https://twitter.com/rowletbot/status/730385243958554624

module Main (main) where

import Control.Concurrent (threadDelay)
import Control.Monad (forever)

-- | __spins furiously__
main :: IO ()
main = forever $ do
  rowlet "( ovo)"
  rowlet "(  ov)"
  rowlet "(   o)"
  rowlet "(    )"
  rowlet "(    )"
  rowlet "(o   )"
  rowlet "(vo  )"
  rowlet "(ovo )"

-- | Prints a string, pauses for a while, then clears the line.
rowlet :: String -> IO ()
rowlet s = do
  putStrLn s
  threadDelay 80000
  putStr "\ESC[1A\ESC[K"