(cram
 (applies_to :whole_subtree))
