primetwins(n):=
if not (primep(n) and primep(n+2)) 
   then primetwins(n+1) 
   else n;

primetwins(100000);

primep(100151);

primep(100153);

liste:makelist(k,k,1,100);

reverse(liste):=block([],
    if length(liste)=1 then liste else 
    append(reverse(rest(liste)),[liste[1]])
)$

reverse(liste);