translated the haskell file x.hs to parabola.clj and arc.clj