diff --git a/src/lib/interactive.ml b/src/lib/interactive.ml
index 6f044ff..3592627 100644
--- a/src/lib/interactive.ml
+++ b/src/lib/interactive.ml
@@ -66,6 +66,9 @@ module Make (S : Types.State) (E : Types.Exec) = struct
 
   let run ?(prompt = default_prompt) initial_ctx =
     let rec loop (ctx : Eval.ctx Exit.t) =
+      Option.iter (Fmt.epr "%s%!")
+        (S.lookup (Exit.value ctx).state ~param:"PS1"
+        |> Option.map Ast.word_components_to_string);
       let p = prompt ctx in
       Fmt.pr "%s\r%!" p;
       match LNoise.linenoise "" with