     (?- (hfs-seqfile static-path :sinkmode :replace) sample-static-data)
     (mk-tsv est-map forma-path static-path out-path)
     (hfs-textline (str out-path "/2006/IDN"))
-    => (produces-some [["9.99791666666666\t101.54412568476158\tIDN\t15319\t2006-01-01\t50"]])))
+    => (produces-some [["9.99791666666666\t101.54412568476158\tIDN\t88114\t2006-01-01\t50"]])))

  [["500" 28 8 0 0 827 [0.5 0.49 0.55 0.54 0.60 0.59]]])

(def sample-static-data
  [["500" 28 8 0 0 15319]])

(fact "Test `wide->long`"
  (let [start-idx 827

(fact "Check `prob-series->tsv-api`. Note that output probabilities are smoothed."
  (prob-series->tsv-api est-map sample-forma-data sample-static-data)
  => (produces-some
      [[9.99791666666666 101.54412568476158 "IDN" "IDN" 88114 "2005-12-19" "2005" 50]
       [9.99791666666666 101.54412568476158 "IDN" "IDN" 88114 "2006-01-01" "2006" 50]
       [9.99791666666666 101.54412568476158 "IDN" "IDN" 88114 "2006-01-17" "2006" 51]
       [9.99791666666666 101.54412568476158 "IDN" "IDN" 88114 "2006-02-02" "2006" 53]
       [9.99791666666666 101.54412568476158 "IDN" "IDN" 88114 "2006-02-18" "2006" 56]
       [9.99791666666666 101.54412568476158 "IDN" "IDN" 88114 "2006-03-06" "2006" 58]]))

(fact "Check `mk-tsv`"
  (let [forma-path "/tmp/forma"
