[REBOL] footer on Joel's email

From: athiele:abraxis at: 15-Mar-2002 21:25

I can`t figure it out, can you explain?

; sub REBOL {}; sub head ($) {@_[0]}
REBOL []
# despam: func [e] [replace replace/all e ":" "." "#" "@"]
; sub despam {my ($e) = @_; $e =~ tr/:#/.@/; return "\n$e"}
print head reverse despam "moc:xedef#yleen:leoj" ;

Adrian

[1] · 2 · 3 · 4 · 5 ... 8 · 9 · 10 · 11 · 12 · See whole thread