список2(x,y)=cons(x,cons(y,())); 
список2(1,2);

соединить(x,y)=
  если null(x) то y
  иначе cons(car(x),соединить(cdr(x),y));
соединить('(A B C),'(X Y Z));

обр(x,y)=
  если null(x) то y
  иначе обр(cdr(x),cons(car(x),y));
обратить(x)=обр(x,());
обратить('(A B C D));

редукция(x,g,a)=
  если null(x) то a
  иначе g(car(x),редукция(cdr(x),g,a));
редукция('(10 15 20),`+,0);

отобр(f)=
  Л(x)если null(x) то ()
      иначе cons(f(car(x)),(отобр(f))(cdr(x)));
отобр(Л(z)z+1)('(1 2 3));

целоеот(m)=cons(m,задержать целоеот(m+1));
первые(k,x)=
  если k=0 то ()
  иначе cons(car(x),первые(k-1,возобновить cdr(x)));
первые(10,целоеот(1));

суммспис(x,y)=
  cons(car(x)+car(y), 
       задержать суммспис(возобновить cdr(x), возобновить cdr(y)));
фиб=
  {f1 
   гдерек 
     f1=cons(1,задержать f2);
     f2=cons(1,задержать возобновить f3);
     f3=задержать суммспис(f1,f2);
  };
первые(10,фиб);
