(defn calc [s]
  (loop [i 0
         result 0]
    (if (< i s)
    (recur (+ i 1) (if (< result (* i i)) (* i i) result))
    result
    )
  )
)
(def x (read))
(println (reduce #(if (> % %2) % %2) (filter #(< % x) (map calc (range 11)))))