(load "ascii.zp") (define cowsay (import "ascii:cowsay")) (let ((trimmed (|> (delay (string:join zepto:args)) (lambda (x) (string:substitute x "\t" " ")) string->list list->vector (curry vector:reduce (lambda (acc x) (if (and (eq? x " ") (eq? (vector:last acc) x)) acc (++ acc x))) {}) vector->list list->string))) (cowsay trimmed)) ""