Ad hoc text transformation via Planck

cl.cljs

#!/usr/local/bin/planck

(require '[clojure.string :as string])
(require 'cljs.reader)
(require '[planck.core :refer [slurp eval *in* *command-line-args*]])

(def in (slurp *in*))

(defn format-output [x]
  (cond
    (string? x) x
    (number? x) (str x)
    (sequential? x) (string/join "\n" x)))

(as-> *command-line-args* $
      (first $)
      (cljs.reader/read-string $)
      (list 'let ['s in 'l (string/split-lines in)] $)
      (eval $)
      (format-output $)
      (js/console.log $)
      )