package SCALAR;
                                                                                                                                                            
  sub to {
    my ($from, $to) = @_;
    return $from > $to
      ? (reverse $to .. $from)
      : ($from .. $to);
  }
  1;