      PROGRAM TEST_RECALL
      INTEGER*4 L(100),N,I
      CHARACTER*80 S(100)
      CALL RECALL(S,L,N)
      DO 100 I=1,N
        WRITE(*,*) S(I)(1:L(I))
100   CONTINUE
      END
