module Main where

import SimpleLineEditor
import Monad (when)
import Maybe

main = initialise >> loop
  where loop = do l <- getLineEdited "prompt> "
                  when (isJust l) (putStrLn (fromJust l))
                  when (l/=Just "quit") loop
                  return ()