diff --git a/kral.k b/kral.k
index d72be3e45ccf3f2aca24d670ca5f5d41112fbfdc..15380af4a5ed6c2afd4b4d2d477135acaa3aa87d 100755
--- a/kral.k
+++ b/kral.k
@@ -1,4 +1,4 @@
-#!/usr/bin/env -S rlwrap /home/phil/build/ngn-k/k
+#!/usr/bin/env -S /home/phil/build/ngn-k/k
 
 /stringify
 sd:`i!({$x})
@@ -29,24 +29,17 @@ /wtest2:{x,x,x}'[wtest]
 /wt1:{w[str[wtest1[x]]]}
 /wt2:{w[str[wtest2[x]]]}
 
-/get file
-d:`env[`"SCRIPT_PATH"]
-/d:$[" "=*d;`env[`PWD],"/";] /if testing offline
-d:"/"/|1_|"/"\d
+//get file
+cgi:~"  "~`env[`"SCRIPT_PATH"]@!2
+d:$[cgi;"/"/|1_|"/"\`env[`"SCRIPT_PATH"];`env[`PWD]]
 argv:"\/"\`env[`"PATH_INFO"]
-f:*argv /if deployed via cgi
-/f:"example.kn" /if testing offline
-f:$[0=#f;"index.kn";f]
+f:$[cgi;*argv;`argv[2]]
+f:$["  "~f@!2;"index.kn";f]
 p:.[{(,"20 text/gemini"),0:d,"/",f};0N;,"51 text/gemini"]
 
 /process document
-/k:{(0 1)~x?"%k"}
-/ki:&k'[p]
-/in:.'3_'p[ki]
 put:{?[x;1+(y;y);,z]}
 out:{$[0=#y;x;o[put[x;*y;*z];1+1_y;1_z]]}
-/p:out[p;ki;in]
-/p[&{~`C=@x}@'p]:$p[&{~`C=@x}@'p]
 
 /TODO: inline code