diff --git a/ghci b/ghci
index 04c714d..a03b075 100644
--- a/ghci
+++ b/ghci
@@ -1,5 +1,7 @@
 :set prompt "λ > "
+:set prompt2 "λ² > "
 {- :set -Wall -}
+:set +m
 
 let ghciEscapeShellArg arg = "'" ++ concatMap (\c -> if c == '\'' then "'\"'\"'" else [c]) arg ++ "'"