/ text <-> morse m:+\0 2 4 4 3 1 4 3 4 2 4 3 4 2 2 3 4 4 3 3 1 3 4 3 4 4 4 5 5 5 5 5 5 5 5 5 5 6 6 m:m _".--...-.-.-.....-.--........----.-.-..---.---.--.--.-.-....-..-...-.---..--.----..-----.----..---...--....-.....-....--...---..----..-.-.---..--..--.." m:("ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789.,?";m) uc:(_ci@[!256;97+!26;-;32])@_ic$: mt:{1_,/" ",'_dv[(m[1],,"")m[0]?/:uc x;""]} tm:{,/m[0]m[1]?/:1_'(&x=" ")_ x:" ",x} \ tm mt"this is morse."