($digit x $from) =~ /^$pattern(?{print "@+[1 .. $draw]\n"})(?!)/;