repl.hs

module Main where

    import System.Environment

    grey = "\x1b[2m"
    noColor = "\x1b[0m"

    replLine 0 = (grey ++ "> Hi!" ++ noColor)
    replLine _ = (grey ++ ">" ++ noColor)

    repl :: Int -> IO ()
    repl round = do
        putStrLn $ replLine round
        a <- getLine
        if a == "exit"
            then putStrLn $ grey ++ "> Bye Bye"
            else repl 1

    main = do
        (c:_) <- getArgs
        if c == "repl"
        then repl 0
        else putStrLn "?"