use v6; my @ranges = $*IN.get.comb: /'-'? \d+ | ['+'|'-']/; # <[+-]> raises an error my ($number) = $*IN.get.comb: /'-'? \d+/; if +@ranges % 3 or ! defined $number { say 'invalid input'; exit; } my $allowed = False; for @ranges -> $op, $start, $end { $allowed = $op ne '-' if $start <= $number <= $end; } say $allowed ?? 'yes' !! 'no';