$fr[$exp][$digit] ||= 0;
  print "$fr[$exp][$digit]\t";