Помогите с заданием по Scheme

Реализуйте процедуру доступа к произвольному элементу последовательности (правильного списка, вектора или строки) по индексу. Пусть процедура возвращает #f если получение элемента не возможно. Примеры применения процедуры:
(ref '(1 2 3) 1) -> 2
(ref #(1 2 3) 1) -> 2
(ref "123" 1)    -> #\2
(ref "123" 3)    -> #f