$n=<>;/ /,push@{$_{-$'}},-$`for<>;for$i(1..$n){print$%x($||=$%=7eq$_{$i-=$n});$_{$_}=7for@{$_{$i}}}