(defun search$(st:1 st:2 / l:1 l:2 i:cnt i:pred v:pos)
(setq 
l:1 (strlen st:1)
l:2 (strlen st:2)
i:cnt 1
i:pred 0
v:pos ‘()
)
(while (<= i:cnt l:1)
(if (= (substr st:1 i:cnt l:2) st:2) 
(progn
(setq v:pos (append v:pos (list (substr st:1 (+ i:pred 1) (- i:cnt i:pred 1)))))
(setq i:pred i:cnt)
)
)
(setq i:cnt (1+ i:cnt))
)
(setq v:pos (append v:pos (list (substr st:1 (+ i:pred 1)))))
)