(cram
 (applies_to :whole_subtree)
 (alias all-destruct-tests))
