(defn S [A,B]
    (def a 
        (atom 1.0)
        )
    (def b 
        (atom 0.0)
        )
    (def c 
        (atom 0.0)
        )
    (def d 
        (atom 0.0)
        )
    (def while_one 
        (atom 0.0)
        )
    (while (< @while_one B)
        (reset! d 0)
        (while (< @d A)
            (reset! b @c)
            (reset! c 
                    (+ @c @a)
                    )
            (reset! d
                    (* @c @c)
                    )
            )
        (reset! c @b)
        (reset! a 
                (* @a 0.1)
                )
        (swap! while_one inc)
        )
    (str @c)
    )
(println (S 2 10)
 )