(defn fb-transformer [first-mod sec-mod number]
  (cond
   (and (= 0 (mod number first-mod)) (= 0 (mod number sec-mod))) "FB"
   (= 0 (mod number first-mod)) "F"
   (= 0 (mod number sec-mod)) "B"
   :else number))

(defn str-line->int-vec [line]
  (let [str-vec (clojure.string/split line #" ")]
    (mapv read-string str-vec)))

(defn fb [line]
  (let [int-vec (str-line->int-vec line)
        first-mod (first int-vec)
        sec-mod (second int-vec)
        numbers (range 1 (inc (last int-vec)))]
  (mapv #(fb-transformer first-mod sec-mod %) numbers)))

(with-open [rdr (clojure.java.io/reader fp)]
  ; Read each line ignoring empty ones
  (doseq [line (remove empty? (line-seq rdr))]
    (println (clojure.string/join " " (fb line)))))