`car', `cdr', `cons', `append', `reverse', `length'
---------------------------------------------------

car(LIST)
     :: $@6u$G$J$$(J LIST $@$N@hF,MWAG(J.
cdr(LIST)
     :: $@6u$G$J$$(J LIST $@$+$i@hF,MWAG$r<h$j=|$$$?%j%9%H(J.
cons(OBJ,LIST)
     :: LIST $@$N@hF,$K(J OBJ $@$rIU$12C$($?%j%9%H(J.
append(LIST1,LIST2)
     :: LIST1 $@$H(J LIST2 $@$r$3$N=g$K(J 1 $@$D$K$7$?%j%9%H(J.
reverse(LIST)
     :: LIST $@$r5U=g$K$7$?%j%9%H(J.
length(LIST)
     :: LIST $@$ND9$5(J.

RETURN
     `car()' : $@G$0U(J, `cdr()', `cons()', `append()', `reverse()' : $@%j%9(J
     $@%H(J, `length()' : $@<+A3?t(J
LIST,LIST1,LIST2
     $@%j%9%H(J
OBJ
     $@G$0U(J

   * $@%j%9%H$O(J [OBJ1,OBJ2,...] $@$HI=$5$l$k(J. OBJ1 $@$,@hF,MWAG$G$"$k(J.
   * `car()' $@$O(J, $@6u$G$J$$(J LIST $@$N@hF,MWAG$r=PNO$9$k(J. $@6u%j%9%H$,F~NO$5(J
     $@$l$?>l9g$O(J, $@6u%j%9%H$,=PNO$5$l$k(J.
   * `cdr()' $@$O(J, $@6u$G$J$$(J LIST $@$+$i@hF,MWAG$r<h$j=|$$$?%j%9%H$r=PNO$9(J
     $@$k(J. $@6u%j%9%H$,F~NO$5$l$?>l9g$O(J, $@6u%j%9%H$,=PNO$5$l$k(J.
   * `cons()' $@$O(J, LIST $@$N@hF,$K(J OBJ $@$rIU$12C$($?%j%9%H$r=PNO$9$k(J.
   * `append()' $@$O(J, LIST1 $@$NMWAG$H(J LIST2 $@$N$9$Y$F$NMWAG$r7k9g$5$;$?%j(J
     $@%9%H(J [LIST1 $@$NMWAG$NJB$S(J,LIST2 $@$NMWAG$NJB$S(J] $@$r=PNO$9$k(J.
   * `reverse()' $@$O(J, LIST $@$r5U=g$K$7$?%j%9%H$r=PNO$9$k(J.
   * `length()' $@$O(J, LIST $@$ND9$5$r=PNO$9$k(J. $@%Y%/%H%k5Z$S9TNs$NMWAG$N8D(J
     $@?t$O(J, `size()' $@$rMQ$$$k(J.
   * $@%j%9%H$OFI$_=P$7@lMQ$G(J, $@MWAG$NF~$lBX$($O$G$-$J$$(J.
   * $@%j%9%H$N(J N $@HVL\$NMWAG$N<h$j=P$7$O(J, `cdr()' $@$r(J N $@2sE,MQ$7$?8e(J 
     `car()' $@$rE,MQ$9$k$3$H$K$h$j2DG=$G$"$k$,(J, $@JXK!$H$7$F(J, $@%Y%/%H%k(J, 
     $@9TNs$J$I$NG[Ns$HF1MM(J, $@%$%s%G%C%/%9(J `[N]' $@$r8e$m$KIU$1$k$3$H$K$h$j(J
     $@<h$j=P$9$3$H$,$G$-$k(J. $@$?$@$7(J, $@%7%9%F%`FbIt$G$O(J, $@<B:]$K%]%$%s%?$r(J 
     N $@2s$?$I$k$N$G(J, $@8e$m$NMWAG$[$I<h$j=P$7$K;~4V$,$+$+$k(J.
   * `cdr()' $@$O?7$7$$%;%k$r@8@.$7$J$$$,(J, `append()' $@$O(J, $@<B:]$K$OBh(J 1 
     $@0z?t$N%j%9%H$ND9$5$@$1$N(J `cons()' $@$N7+$jJV$7$H$J$k$?$a(J, $@Bh(J 1 $@0z?t(J
     $@$N%j%9%H$,D9$$>l9g$K$OB?$/$N%a%b%j$r>CHq$9$k$3$H$K$J$k(J. 
     `reverse()' $@$K4X$7$F$bF1MM$G$"$k(J.

     [0] L = [[1,2,3],4,[5,6]];
     [[1,2,3],4,[5,6]]
     [1] car(L);
     [1,2,3]
     [2] cdr(L);
     [4,[5,6]]
     [3] cons(x*y,L);
     [y*x,[1,2,3],4,[5,6]]
     [4] append([a,b,c],[d]);
     [a,b,c,d]
     [5] reverse([a,b,c,d]);
     [d,c,b,a]
     [6] length(L);
     3
     [7] L[2][0];
     5

