[(List 'bind
              (list (list (symbol: name) (sexpr: named))
                    (list (symbol: names) (sexpr: nameds)) ...)
              (sexpr: body))
        (Bind (cons name names)
              (cons (parse-sexpr named) (map parse-sexpr nameds))
              (parse-sexpr body))]