var
  a, b, c, d, e: string;

begin
  a := 'метрика';
  b := copy(a, 1, 4);
  writeln(b);
  insert(copy(a, 7, 1), c, 1);
  insert(copy(a, 6, 1), c, 2);
  insert(copy(a, 3, 1), c, 3);
  writeln(c);
  insert(copy(a, 3, 1), d, 1);
  insert(copy(a, 5, 1), d, 2);
  insert(copy(a, 4, 1), d, 3);
  insert(copy(a, 2, 1), d, 4);
  writeln(d);
  insert(copy(a, 6, 1), e, 1);
  insert(copy(a, 7, 1), e, 2);
  insert(copy(a, 4, 1), e, 3);
  insert(copy(a, 1, 1), e, 4);
  insert(copy(a, 7, 1), e, 5);
  writeln(e);
end.