# Pastebin PTrXcS4E
$ ./perl6 -e '


say ^10 .take-while(* < 3).ignore-until(6).take-until(8)


'
(0 1 2 6 7)