def READ(str):
    return reader.read_str(str)

def read_str(args):
    a0 = args[0]
    if not isinstance(a0, MalStr):
        throw_str("read-string of non-string")
    return reader.read_str(str(a0.value))

def READ(line):
    res = reader.read_str(line)
    log(str(res),"READ")
    return res

def READ(line):
    return reader.read_str(line)

def READ(s: str) -> MalType:
    return reader.read_str(s)

 "+": lambda x,y: x+y
 ,"-": lambda x,y: x-y
 ,"*": lambda x,y: x*y
 ,"/": lambda x,y: x/y
 ,"nil": "nil"
 ,"not": lambda x: not ((type(x)==bool and x) or (type(x)!=bool and x!="nil"))
 ,"list": lambda *l: [*l]
 ,"list?": lambda lst: isinstance(lst,list)
 ,"empty?": lambda lst: len(lst)==0
 ,"count": lambda lst: len(lst) if isinstance(lst,(list,tuple)) else 0
 ,"=": lambda x,y: x==y
 ,">": lambda x,y: x>y
 ,"<": lambda x,y: x<y
 ,">=": lambda x,y: x>=y
 ,"<=": lambda x,y: x<=y
 ,"read-string": lambda s: reader.read_str(s.value)
 ,"slurp": lambda fname:maltype.String(readfile(fname))
 ,"pr-str": lambda *x: maltype.String(" ".join([printer.pr_str(v) for v in x]))
 ,"str": lambda *x: maltype.String("".join([printer.pr_str(v,False) for v in x]))
 ,"prn": prn
 ,"println": println
 ,"atom": lambda v:maltype.Atom(v)
 ,"atom?": maltype.atomp
 ,"deref": lambda a:a.value
 ,"reset!": lambda a,v:a.reset(v)
 ,"swap!": lambda a,f,*arg:a.reset(f(a.value,*arg) if not isinstance(f,dict) else f["fn"](a.value,*arg))
 ,"cons": lambda a,lst: [a,*lst]
 ,"concat": concat
 ,"nth": nth
 ,"first": lambda lst:"nil" if len(lst)==0 or lst=="nil" else nth(lst,0)
 ,"rest": rest

def READ(code):
    return reader.read_str(code)