use cl-subseq not subseq