* h_program-lang/database_code.pl: ugly