LOAD('PFAFF)$
PFAFFIAN(1,[A]);
PFAFFIAN(2,[A,B,C]);
PFAFFIAN(3,[A,B,C,D,E,F]);
PFAFFIAN(4,[A,B,C,D,E,F,G,H,J,K]);
PFAFFIAN(5,[A,B,C,D,E,F,G,H,I,J,K,L,M,N,O]);
PFAFFIAN(7,[A,B,C,D,E,F,G,
            H,I,J,K,L,M,N,AA,BA,CA,DA,EA,FA,GA,HA,IA,JA,KA,LA,MA,NA]);