public static procedure bgl_make_procedure( Object e, int a, int l ) { fail( "make-procedure", "not impleemented", e ); return new procedure(); }