perl -e'map{($a=substr(sprintf("%b",$n+++2),1))=~tr/01/.-/;print"$_= $a\n"}split(//, "etianmsurwdkgohvfüläpjbxcyzqöch",30)'