ips

diff --git a/bin/bin/ips b/bin/bin/ips
new file mode 100755 (executable)
index 0000000..a75c45a
--- /dev/null
+++ b/bin/bin/ips
@@ -0,0 +1,11 @@
+#!/bin/sh -e
+
+# -de1
+
+exec rlwrap \
+    --prompt-colour=red \
+    --substitute-prompt "> " \
+    perl -Mbignum -MEncode -MData::Dumper \
+        -e '$Data::Dumper::Useqq = 1;' \
+        -e '*x = \&Dumper; $_dummy = $x;' \
+        -wnE 'say eval()//$@'