(cram
 (applies_to :whole_subtree)
 (alias construct))
