( cons -- car )
: car cell + @ ;

( cons -- cdr )
: cdr @ ;

( cdr car -- cons )
: cons here >r , , 2 cells allot r> ;

: nil 0 ;

10 20 nil cons cons value list

list car .
list cdr car .