(println (let 
  [a
   (map 
     (fn [a] (Integer/parseInt a))
     (.split (.nextLine (java.util.Scanner. System/in)) " "))] 
  (.intValue (* (Math/pow 100 (first a)) (let [c (first (rest a))] (if (= c 100) 101 c))))))