2016-04-06: start safepassword tool

start safepassword tool

diff --git a/examples/safepassword.w b/examples/safepassword.w
new file mode 100755
--- /dev/null
+++ b/examples/safepassword.w
@@ -0,0 +1,12 @@
+#!/usr/bin/env sh
+# -*- wisp -*-
+exec guile -L $(dirname $(dirname $(realpath "$0"))) --language=wisp -e '(@@ (examples safepassword) main)' -s "$0" "$@"
+; !#
+
+;; Create safe passwords, usable on US and German keyboards without problems
+
+define-module : examples safepassword
+              . #:export : password
+
+define : main args
+       display "password\n"