sub gen_id { sprintf "%U", $_[1] }