(cram
 (applies_to :whole_subtree)
 (locks a)
 (alias all-tests))
