From 1537254600511103b3140dac92e41578cddee1d3 Mon Sep 17 00:00:00 2001
From: Cody Boone Ferguson <53008573+xexyl@users.noreply.github.com>
Date: Fri, 19 Jan 2024 08:13:28 -0800
Subject: [PATCH] Improve 1998/fanf/try.sh

---
 1998/fanf/try.sh | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/1998/fanf/try.sh b/1998/fanf/try.sh
index 8e0bfc016..24504d93b 100755
--- a/1998/fanf/try.sh
+++ b/1998/fanf/try.sh
@@ -15,7 +15,8 @@ make CC="$CC" all >/dev/null || exit 1
 # clear screen after compilation so that only the entry is shown
 clear
 
-echo "$ echo '((\a(\b(\c(d)))) e' | ./fanf" 1>&2
+read -r -n 1 -p "Press any key to run: echo '((\a(\b(\c(d)))) e)' | ./fanf: "
+echo 1>&2
 echo '((\a(\b(\c(d)))) e)' | ./fanf
 echo 1>&2
 
@@ -25,6 +26,8 @@ echo "$ echo '
     (g x) (f x)
   ) K K z
 )'|./fanf" 1>&2
+read -r -n 1 -p "Press any key to continue: "
+echo 1>&2
 echo '
 (\f\g\x
   (
@@ -35,6 +38,8 @@ echo 1>&2
 
 
 echo "$ echo '(\f(\f\g\x( (f((\a(g(b))) e)) (g x) ) K K z))' | ./fanf" 1>&2
+read -r -n 1 -p "Press any key to continue: "
+echo 1>&2
 echo '(\f(\f\g\x( (f((\a(g(b))) e)) (g x) ) K K z))' | ./fanf
 echo 1>&2
 
@@ -45,6 +50,8 @@ echo "$ echo '
    (* n (f (- n 1)))
   )
 )' | ./fanf" 1>&2
+read -r -n 1 -p "Press any key to continue: "
+echo 1>&2
 
 echo '(Y\f\n
   ((= n 0)
@@ -52,3 +59,5 @@ echo '(Y\f\n
    (* n (f (- n 1)))
   )
 )' | ./fanf
+
+exit 0