#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
     Chrvect; Compute; Endoper; Litvect; Quadout; Perm; Pick; Temp;
     Aplcb rite;
     #include "aplinit.h"

     rite=perm(compute(chrvect("'p' 'pi' ('pie' 'pier')")));
     quadout(pick(litvect("2 1"),rite,NULL));
     quadout(pick(litvect("2 1"),rite,chrvect("tr")));
     endoper(quadout(temp(rite)));
}