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