#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
     Chrvect; Endoper; Indexof; Indexv; Litvect; Perm;
     Quadout; Reshape; Reverse; Temp;
     Aplcb a,j,m;
     #include "aplinit.h"

     a = perm(chrvect("abcdefghijklmnopqrstuvwxyz "));
     m = perm(chrvect("head chief"));
     j = quadout(perm(indexof(a,m)));
/*
                                8 5 1 4 27 3 8 9 5 6
*/
     endoper(quadout(indexv(a,reverse(j,indxorg),NULL)));
/*
                                fiehc daeh
*/
     endoper(temp(a));
     endoper(temp(j));
     endoper(temp(m));
}