character*1c;do i=0,58;call fget(c);print'(a$)',c;enddo;print'(/a9)B D C A E D C B A'," B C D E"(mod(loc(n),3)*8:);end