main :: IO ()
main = do
    -- Initialiaze
    forever $ do
        putStrLn "Ingin melakukan pencarian [1], membuka isi file [2], atau keluar [Any]?"
        input <- getLine
        case input of
            "1" -> -- do something when 1
            "2" -> do
                input2 <- getLine
                case input2 of
                    "AND" -> -- do something when ADD
                    "OR -> -- do something when OR