Index: compilers/pct/src/PCT/HLLCompiler.pir
===================================================================
--- compilers/pct/src/PCT/HLLCompiler.pir	(revision 33557)
+++ compilers/pct/src/PCT/HLLCompiler.pir	(working copy)
@@ -15,7 +15,7 @@
     load_bytecode 'P6object.pbc'
     load_bytecode 'Parrot/Exception.pbc'
     $P0 = new 'P6metaclass'
-    $S0 = '@stages $parsegrammar $parseactions $astgrammar $commandline_banner $commandline_prompt @cmdoptions $usage $version'
+    $S0 = '@stages $parsegrammar $parseactions $astgrammar $commandline_banner $commandline_prompt $commandline_result_prompt @cmdoptions $usage $version'
     $P0.'new_class'('PCT::HLLCompiler', 'attr'=>$S0)
 .end
 
@@ -143,6 +143,13 @@
 The prompt is displayed in interactive mode at each point where
 the compiler is ready for code to be compiled and executed.
 
+=item commandline_result_prompt([string value])
+
+Set the command-line prompt for result of this computation to C<value>.
+The prompt is displayed in interactive mode after each point where
+the code is inserted showing the result of the computation.
+
+
 =cut
 
 .sub 'stages' :method
@@ -181,6 +188,11 @@
     .tailcall self.'attr'('$commandline_prompt', value, has_value)
 .end
 
+.sub 'commandline_result_prompt' :method
+    .param string value        :optional
+    .param int has_value       :opt_flag
+    .tailcall self.'attr'('$commandline_result_prompt', value, has_value)
+.end
 =item removestage(string stagename)
 
 Delete a stage from the compilation process queue.
@@ -530,6 +542,15 @@
     $P0 = self.'commandline_banner'()
     printerr $P0
 
+    ## set result prompt once 
+    .local string result_prompt
+    result_prompt = '=> '
+    $P0 = self.'commandline_result_prompt'()
+    $I0 = defined $P0
+    unless $I0 goto has_result_prompt
+    result_prompt = $P0
+
+  has_result_prompt:
     .local pmc stdin
     .local int has_readline
     stdin = getstdin
@@ -538,21 +559,23 @@
     if encoding == 'fixed_8' goto interactive_loop
     unless encoding goto interactive_loop
     push stdin, encoding
+
   interactive_loop:
     .local pmc code
     unless stdin goto interactive_end
-
     .local string prompt
-    prompt = '> '
+    prompt = '>> '
     $P0 = self.'commandline_prompt'()
     $I0 = defined $P0
     unless $I0 goto have_prompt
     prompt = $P0
+
   have_prompt:
 
     ##  display a prompt ourselves if readline isn't present
     if has_readline != -1 goto interactive_read
     printerr prompt
+
   interactive_read:
     code = stdin.'readline'(prompt)
     if null code goto interactive_end
@@ -562,9 +585,13 @@
     $P0 = self.'eval'(code, adverbs :flat :named)
     pop_eh
     if null $P0 goto interactive_loop
-    unless target goto interactive_loop
+    unless target goto interactive_print
     if target == 'pir' goto target_pir
     '_dumper'($P0, target)
+  interactive_print:
+    print result_prompt
+    print $P0
+    print "\n"
     goto interactive_loop
   target_pir:
     say $P0