rebol [ title: "some REBOL" author: "vpavlu" date: 12-12-2002 home: http://plain.at/vpavlu/REBOL ] s: {4+6&05"1(!-*&+.$$%.13)} set to-lit-word '| func [s][s: to-string s join s s/1] _: does [ pick rejoin ['. | | "/" ":" | | 'a "h" "i" | 'l 'n | | 'p | | 't 'u | 'v] -32 + s/1 ] forall s [ change s _ ] reverse s: to-url head s s/REBOL