PROGRAM CSHELL(INPUT,OUTPUT);
  TYPE LL=ARRAY[1..100 ]OF INTEGER;
  VAR N,T,I:INTEGER;
      L:LL;F:LL;

{$i b:shell.src}

  BEGIN
    READLN(N);
    READLN(T);
    FOR I:=1 TO T DO READ(F[I]);
    FOR I:=1 TO N DO READ(L[I]);
    WRITELN;
    WRITE('L=');
    FOR I:=1 TO N DO WRITE(L[I]:10);
    WRITELN;
    SHELL(N,T,F,L);
    WRITE('L(SORTED)=':10);
    FOR I:=1 TO N DO WRITE(L[I]:10)
  END.