car = func ( x ) { aget ( x , 0 ) }
cdr = func ( x ) { aget ( x , 1 ) }
cons = func ( x , y ) { p = anew ( ) ; aput ( p , 0 , x ) ; aput ( p , 1 , y ) ; p }

must = func ( x , s ) { if ( x ) { Puts ( "good:" ) ; Puts ( s ) ; Putc ( 10 ) } else { Puts ( "BAD:" ) ; Puts ( s ) ; Putc ( 10 ) } }

if ( 5 == car ( cons ( 5 , 7 ) ) ) { Putc ( 64 + 25 ) } else { Putc ( 64 + 14 ) }
if ( 5 == car ( cons ( 5 , 7 ) ) ) { Puts ( "good." ) } else { "BAD." }

must (  5 == car ( cons ( 5 , 7 ) ) , "car==5" )