sorry, the class name 'random' was changed to 'weighting' several
years ago to stop ansi cl compilers from nagging about it.
(new heap :of (list (new cycle :of 'q :for 3)
(new palindrome :of '(e. s e))
(new weighting :of '(h w h.) :for 1)))