cons* in scheme - how to implement

Question

I tried to implement the cons* (https://scheme.com/tspl4/objects.html#./objects:s44).

Examples:

(cons* \'()) -> ()
(cons* \'(a b)) -> (a b)
(cons