[ InfixPrintRoutine x;
  print (string) #routine_names_array-->(x-#lowest_routine_number);
];