(bind-func main
(lambda (n:i64)
(let (;; (bodies:planet* (make_bodies))
(i:i64 0))
(offset_momentum 5 bodies)
(printf "%.9f\n" (energy 5 bodies))
(dotimes (i n)
(advance 5 bodies 0.01))
(printf "%.9f\n" (energy 5 bodies))
void)))