Programming challenge: wildcard exclusion in cartesian products

[Alexander Schmolck]

joswig at corporate-world.lisp.de writes:

> (defun >> (val num-bytes)
>   "Right-shift positive integer val by num-bytes"
>   (floor (/ val (expt 2 num-bytes))))

or just (floor val (expt 2 num-bytes)) 

'as