w

http://www.facebook.com/pages/Xarn/123106234380089?v=wall
I realise the profile is fake but is that guy really Xarn? If not who is he (the guy in the picture I mean)?

sussman --penisenhanced

(define (swap vec i j) (let ((tmp (vector-ref vec i))) (vector-set! vec i (vector-ref vec j)) (vector-set! vec j tmp))) (define (shuffle vec) (let iter ((n (vector-length vec))) (cond ((= n 1) vec) (else (swap vec (- n 1) (random n)) (iter (- n 1)))))) (define (apply-bbcode word lat n) (cond ((or (null? lat) (= n 0)) word) (else (string-append "[" (car lat) "]" (apply-bbcode word (cdr lat) (- n 1)) "[/" (car lat) "]")))) (define (random-bbcode word) (define bb-list (list "b" "u" "i" "m" "o" "s" "sup" "sub" "spoiler")) (apply-bbcode word (vector->list (shuffle (list->vector bb-list))) (+ (random (length bb-list)) 1))) (define (next-word) (define (read-word [sub][m][aa][m][sup]c)[/sub][/m][/aa][/m][/sub] (cond ((or (eof-object? c) (char-whitespace? c)) "") (else (string-append (string c) (read-word (read-char)))))) (let ((c (read-char))) (cond ((eof-object? c) #f) ((char-whitespace? c) (next-word)) (else (read-word c))))) (define (main) (let ((s (next-word))) (cond ((not s) (newline)) (else (printf "~a " (random-bbcode s)) (main))))) (main)