(defn bf-interpreter [program-code]
    (loop instruction-pointer 0]
        (recur (inc instruction-pointer))))