(match gen.gcon.main_class with
			| Some path when path = cl.cl_path ->
				write w "public static void main(String[] args)";
				begin_block w;
				(try
					let t = Hashtbl.find gen.gtypes ([], "Sys") in
							match t with
								| TClassDecl(cl) when PMap.mem "_args" cl.cl_statics ->
									write w "Sys._args = args;"; newline w
								| _ -> ()
				with | Not_found -> ()
				);
				(match gen.gcon.main with
					| Some(expr) ->
						expr_s w (mk_block expr)
					| None ->
						write w "main();");
				end_block w;
				newline w
			| _ -> ()
		);