def is_begin(exp): return is_tagged_list(exp, Symbol("begin"))
def is_if(exp): return is_tagged_list(exp, Symbol("if"))
def is_quoted(exp): return is_tagged_list(exp, S.QUOTE)
def is_lambda(exp): return is_tagged_list(exp, Symbol("lambda"))
def is_amb(exp): return is_tagged_list(exp, S.AMB)
def is_callcc(exp): return is_tagged_list(exp, S.CALLCC)
def is_definition(exp): return is_tagged_list(exp, Symbol("define"))
def is_undoable_assignment(exp): return is_tagged_list(exp, Symbol("maybe-set!"))
def is_assignment(exp): return is_tagged_list(exp, Symbol("set!"))
def is_cond(exp): return is_tagged_list(exp, Symbol("cond"))
def is_let(exp): return is_tagged_list(exp, Symbol("let"))