(defn inputArr []
  (for [x (str/split (read-line)]) (int x))

(defn isReachable [arr x y]
  (if (== x y) true
      (let [p1 x]
        (loop [p2 (range (inc p1) (inc y))]
          (if (> (bit-and (dec p1) (dec p1)) 0)
            (if (isReachable arr p2 y) true))
          (recur (inc p2)))
      false)

(let [[p1 p2] (inputArr)]
  (let [arr (inputArr)]
    (let [xys (for [_ (range q)] inputArr)]
      (map (fn [x] (if x "Shi" "Fou"))))))