sub fraction {
  return @_ unless @_ == grep /\d+_\d+/, @_;
  my $args = defined wantarray ? [@_] : \@_;
  $_ = convert_num_here($_)
    for @$args;
  return wantarray ? @$args : $args[-1];
}