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