部分リストを見つける関数って
srfi
とかにないのでしょうか
自分で作るしかない？

(find-sub-list (..... 1 2 3 ....) (1 2 3) )
=> 123 の場所