val translate_program : Dcalc.Ast.program -> Ast.program