begins

[procedure] begins seq pat (o start 0)

(def begins (seq pat (o start 0))
  (unless (> (len pat) (- (len seq) start))
    (headmatch pat seq start)))