(def a (atom 114514))
(def p (atom 114513))
(def e (atom 0))
(while (not= 0 (rem @a @p))
    (reset! p (- @p 1))
    )
(while (not= @a (* @e @p))
    (reset! e (+ @e 1))
    )
(println @a)
(print @p)
(print "*")
(print @e)