#!/usr/bin/env clyx
# Clyx REPL implemented in Clyx itself
# Created by Luxferre in 2026, released into the public domain

:: is_exit [ lower "exit" streq ]

"Clyx REPL ready. Type \"exit\" to quit" puts cr

"loop_" "flag" + [ 1 ] defw 0 drop

1 while [
  "clyx> " puts
  readln
  dup is_exit if [
    drop
    "Bye!" puts cr
    "loop_" "flag" + [ 0 ] defw
  ] [
    dup slen 0 = if [ drop ] [ i " ok" puts cr ]
  ]
  "loop_" "flag" + i
]