def is_compound_procedure(expr): return is_tagged_list(expr, Symbol('procedure'))
def is_primitive_procedure(expr): return is_tagged_list(expr, Symbol('primitive'))
def is_assignment(expr): return is_tagged_list(expr, Symbol('set!'))
def is_definition(expr): return is_tagged_list(expr, Symbol('define'))
def is_begin(expr): return is_tagged_list(expr, Symbol("begin"))
def is_lambda(expr): return is_tagged_list(expr, Symbol("lambda"))
def is_or(expr): return is_tagged_list(expr, Symbol('or'))
def is_cond(expr): return is_tagged_list(expr, Symbol('cond'))
def is_if(expr): return is_tagged_list(expr, Symbol('if'))
def is_let_binding(expr): return is_tagged_list(expr, Symbol('set'))
def is_quoted(expr): return is_tagged_list(expr, Symbol('quote'))
def is_lambda(expr): return is_tagged_list(expr, Symbol('lambda'))
def is_begin(expr): return is_tagged_list(expr, Symbol('begin'))