diff --git a/kral.k b/kral.k
index 187763dea985de00d626cd9fa8121ae36c865300..1d2320e0dda1ee3912d6d28bbc912166ab4353ba 100755
--- a/kral.k
+++ b/kral.k
@@ -1,4 +1,5 @@
 #!/usr/bin/env -S rlwrap /home/phil/build/ngn-k/k
+
 /stringify
 sd:`i!({$x})
 str:{sd[@x][x]}
@@ -30,13 +31,12 @@ /wt2:{w[str[wtest2[x]]]}
 
 /get file
 d:`env[`"SCRIPT_PATH"] /if deployed via cgi
-/d:$[" "=*d;`env[`PWD],"/";] /if testing offline
+/d:$[" "=*d;`env[`PWD];] /if testing offline
 d:"/"/|1_|"/"\d
 argv:"\/"\`env[`"PATH_INFO"]
 f:*argv
-f:$[~".kn"=|(|f)[!3];"index.kn";] /FIXME
-f:d,"/",f
-p:0:f
+$[0=#f;f:"index.kn";]
+p:.[{(,"20 text/gemini"),0:d,"/",f};0N;,"51 text/gemini"]
 
 /process document
 k:{(0 1)~x?"%k"}
@@ -44,8 +44,6 @@ 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:(,"20 text/gemini"),out[p;ki;in]
+p:out[p;ki;in]
 p[&{~`C=@x}@'p]:$p[&{~`C=@x}@'p]
 w[{x,"\r"}'[p]]
-w[d,"\r"]
-w[f,"\r"]