grammar Number
{
   token TOP       { <SCALAR> }
   token SCALAR    { ONE
                     | TWO
                     | THREE
                     | FOUR
                     { make $/.made; }
             }

   # Termination tokens
   token ONE        { one {make 1;}  }
   token TWO        { two {make 2;}  }
   token THREE      { three {make 3;} }
   token FOUR       { four {make 4;}  }
}


for lines() {
  my $match = Number.parse($_).made;
  say $match<SCALAR>.made
}