Hello, sorry for delay, i am sending code Olaf was asking for. Best regards, Razzy.
: (pretty rdeb) (NIL (println "q quit | d (d) | e safe-eval | unbug-all") (case (key) ("d" (d)) ("e" (unless (fork) (msg (e)) (bye))) ("q" NIL) ) ) : (pretty f) (NIL (let? A (pipe (call 'sh "-c" "cat ../.pilrc | fzf") (read)) (pretty A) (println) (println "q,d quit | w eval | e safe-eval | r in-hist") (case (key) ("q" NIL) ("w" (eval A)) ("e" (unless (fork) (msg (A)) (bye))) ("r" (nil (let? B (history) (history (append B (list (sym A)))) ) ) ) ("d" NIL) ) ) )