(defn (ts x)
  (* 10 (+ 1 (sin x))))

(set! _G_ts ts)

(defn (p t)
  (for (i (_G_ts t))
    (write " "))
  (say 'x))



(for (i 50) (p (/ i 8)))