int main() {
  int count, i = 0;
  char data[1001];
  scanf("%d", &count);
  char *priority = (char *)malloc((count + 1) * sizeof(char));
  int *time = (int *)malloc(count * sizeof(int));
  for (; i != count; ++i)
    time[i] = 0;
  scanf("%s", priority);
  scanf("%s", data);
  i = 0;
  while (data[i]) {
    count = 0;
    while (priority[count]) {
      if (priority[count] == data[i]) {
        ++time[count];
        break;
      }
      ++count;
    }
    ++i;
  }
  count = 0;
  while (priority[count]) {
    for (i = 0; i != time[count]; ++i)
      printf("%c", priority[count]);
    ++count;
  }
  printf("\n");
  free(priority);
  priority = 0;
  free(time);
  time = 0;
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x410,%rsp
movl   $0x0,-0x4(%rbp)
movl   $0x0,-0xc(%rbp)
lea    0xea0(%rip),%rdi
lea    -0x8(%rbp),%rsi
mov    $0x0,%al
call   1060 <scanf@plt>
mov    -0x8(%rbp),%eax
add    $0x1,%eax
movslq %eax,%rdi
shl    $0x0,%rdi
call   1050 <malloc@plt>
mov    %rax,-0x408(%rbp)
movslq -0x8(%rbp),%rdi
shl    $0x2,%rdi
call   1050 <malloc@plt>
mov    %rax,-0x410(%rbp)
mov    -0xc(%rbp),%eax
cmp    -0x8(%rbp),%eax
je     11c4 <main+0x84>
mov    -0x410(%rbp),%rax
movslq -0xc(%rbp),%rcx
movl   $0x0,(%rax,%rcx,4)
mov    -0xc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0xc(%rbp)
jmp    1198 <main+0x58>
mov    -0x408(%rbp),%rsi
lea    0xe31(%rip),%rdi
mov    $0x0,%al
call   1060 <scanf@plt>
lea    -0x400(%rbp),%rsi
lea    0xe1c(%rip),%rdi
mov    $0x0,%al
call   1060 <scanf@plt>
movl   $0x0,-0xc(%rbp)
movslq -0xc(%rbp),%rax
cmpb   $0x0,-0x400(%rbp,%rax,1)
je     127b <main+0x13b>
movl   $0x0,-0x8(%rbp)
mov    -0x408(%rbp),%rax
movslq -0x8(%rbp),%rcx
cmpb   $0x0,(%rax,%rcx,1)
je     126d <main+0x12d>
mov    -0x408(%rbp),%rax
movslq -0x8(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
movslq -0xc(%rbp),%rcx
movsbl -0x400(%rbp,%rcx,1),%ecx
ff
cmp    %ecx,%eax
jne    125f <main+0x11f>
mov    -0x410(%rbp),%rax
movslq -0x8(%rbp),%rcx
mov    (%rax,%rcx,4),%edx
add    $0x1,%edx
mov    %edx,(%rax,%rcx,4)
jmp    126d <main+0x12d>
mov    -0x8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x8(%rbp)
jmp    120e <main+0xce>
mov    -0xc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0xc(%rbp)
jmp    11f5 <main+0xb5>
movl   $0x0,-0x8(%rbp)
mov    -0x408(%rbp),%rax
movslq -0x8(%rbp),%rcx
cmpb   $0x0,(%rax,%rcx,1)
je     12ee <main+0x1ae>
movl   $0x0,-0xc(%rbp)
mov    -0xc(%rbp),%eax
mov    -0x410(%rbp),%rcx
movslq -0x8(%rbp),%rdx
cmp    (%rcx,%rdx,4),%eax
je     12e0 <main+0x1a0>
mov    -0x408(%rbp),%rax
movslq -0x8(%rbp),%rcx
movsbl (%rax,%rcx,1),%esi
lea    0xd3b(%rip),%rdi
mov    $0x0,%al
call   1040 <printf@plt>
mov    -0xc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0xc(%rbp)
jmp    129e <main+0x15e>
mov    -0x8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x8(%rbp)
jmp    1282 <main+0x142>
lea    0xd14(%rip),%rdi
mov    $0x0,%al
call   1040 <printf@plt>
mov    -0x408(%rbp),%rdi
call   1030 <free@plt>
movq   $0x0,-0x408(%rbp)
mov    -0x410(%rbp),%rdi
call   1030 <free@plt>
movq   $0x0,-0x410(%rbp)
xor    %eax,%eax
add    $0x410,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r15
push   %r14
push   %rbx
sub    $0x408,%rsp
lea    0xe9c(%rip),%rdi
lea    0xc(%rsp),%rsi
xor    %eax,%eax
call   1070 <scanf@plt>
movslq 0xc(%rsp),%rbp
lea    0x1(%rbp),%rdi
call   1060 <malloc@plt>
mov    %rax,%rbx
lea    0x0(,%rbp,4),%rdi
call   1060 <malloc@plt>
mov    %rax,%r14
test   %rbp,%rbp
je     11a6 <main+0x56>
mov    %ebp,%edx
shl    $0x2,%rdx
mov    %r14,%rdi
xor    %esi,%esi
call   1050 <memset@plt>
lea    0xe56(%rip),%r15
mov    %r15,%rdi
mov    %rbx,%rsi
xor    %eax,%eax
call   1070 <scanf@plt>
lea    0x10(%rsp),%rsi
mov    %r15,%rdi
xor    %eax,%eax
call   1070 <scanf@plt>
mov    0x10(%rsp),%dl
mov    (%rbx),%dil
test   %dl,%dl
je     1229 <main+0xd9>
xor    %ecx,%ecx
jmp    11f0 <main+0xa0>
nopl   0x0(%rax,%rax,1)
mov    %esi,0xc(%rsp)
mov    0x11(%rsp,%rcx,1),%dl
add    $0x1,%rcx
test   %dl,%dl
je     1229 <main+0xd9>
mov    $0x0,%esi
test   %dil,%dil
je     11e0 <main+0x90>
xor    %esi,%esi
mov    %edi,%eax
xchg   %ax,%ax
cmp    %dl,%al
je     1220 <main+0xd0>
movzbl 0x1(%rbx,%rsi,1),%eax
add    $0x1,%rsi
test   %al,%al
jne    1200 <main+0xb0>
jmp    11e0 <main+0x90>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
mov    %esi,%eax
addl   $0x1,(%r14,%rax,4)
jmp    11e4 <main+0x94>
movl   $0x0,0xc(%rsp)
test   %dil,%dil
je     127b <main+0x12b>
xor    %eax,%eax
jmp    1252 <main+0x102>
nopw   0x0(%rax,%rax,1)
movslq %eax,%rcx
lea    0x1(%rcx),%rax
mov    %eax,0xc(%rsp)
cmpb   $0x0,0x1(%rbx,%rcx,1)
je     127b <main+0x12b>
movslq %eax,%rcx
cmpl   $0x0,(%r14,%rcx,4)
je     1240 <main+0xf0>
xor    %ebp,%ebp
xchg   %ax,%ax
movsbl (%rbx,%rcx,1),%edi
call   1040 <putchar@plt>
add    $0x1,%ebp
mov    0xc(%rsp),%eax
movslq %eax,%rcx
cmp    (%r14,%rcx,4),%ebp
jne    1260 <main+0x110>
jmp    1240 <main+0xf0>
mov    $0xa,%edi
call   1040 <putchar@plt>
mov    %rbx,%rdi
call   1030 <free@plt>
mov    %r14,%rdi
call   1030 <free@plt>
xor    %eax,%eax
add    $0x408,%rsp
pop    %rbx
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [3 x i8] c"%d\00"
@.str.1 = [3 x i8] c"%s\00"
@.str.2 = [3 x i8] c"%c\00"
@.str.3 = [2 x i8] c"\0A\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca i32
%3 = alloca i32
%4 = alloca [1001 x i8]
%5 = alloca i8*
%6 = alloca i32*
store i32 0, i32* %1
store i32 0, i32* %3
%7 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %2)
%8 = load i32, i32* %2
%9 = add nsw i32 %8, 1
%10 = sext i32 %9 to i64
%11 = mul i64 %10, 1
%12 = call i8* @malloc(i64 %11)
store i8* %12, i8** %5
%13 = load i32, i32* %2
%14 = sext i32 %13 to i64
%15 = mul i64 %14, 4
%16 = call i8* @malloc(i64 %15)
%17 = bitcast i8* %16 to i32*
store i32* %17, i32** %6
br label %18
18: ; preds = %27, %0
%19 = load i32, i32* %3
%20 = load i32, i32* %2
%21 = icmp ne i32 %19, %20
br i1 %21, label %22, label %30
22: ; preds = %18
%23 = load i32*, i32** %6
%24 = load i32, i32* %3
%25 = sext i32 %24 to i64
%26 = getelementptr inbounds i32, i32* %23, i64 %25
store i32 0, i32* %26
br label %27
27: ; preds = %22
%28 = load i32, i32* %3
%29 = add nsw i32 %28, 1
store i32 %29, i32* %3
br label %18
30: ; preds = %18
%31 = load i8*, i8** %5
%32 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.1, i64 0, i64 0), i8* %31)
%33 = getelementptr inbounds [1001 x i8], [1001 x i8]* %4, i64 0, i64 0
%34 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.1, i64 0, i64 0), i8* %33)
store i32 0, i32* %3
br label %35
35: ; preds = %72, %30
%36 = load i32, i32* %3
%37 = sext i32 %36 to i64
%38 = getelementptr inbounds [1001 x i8], [1001 x i8]* %4, i64 0, i64 %37
%39 = load i8, i8* %38
%40 = icmp ne i8 %39, 0
br i1 %40, label %41, label %75
41: ; preds = %35
store i32 0, i32* %2
br label %42
42: ; preds = %69, %41
%43 = load i8*, i8** %5
%44 = load i32, i32* %2
%45 = sext i32 %44 to i64
%46 = getelementptr inbounds i8, i8* %43, i64 %45
%47 = load i8, i8* %46
%48 = icmp ne i8 %47, 0
br i1 %48, label %49, label %72
49: ; preds = %42
%50 = load i8*, i8** %5
%51 = load i32, i32* %2
%52 = sext i32 %51 to i64
%53 = getelementptr inbounds i8, i8* %50, i64 %52
%54 = load i8, i8* %53
%55 = sext i8 %54 to i32
%56 = load i32, i32* %3
%57 = sext i32 %56 to i64
%58 = getelementptr inbounds [1001 x i8], [1001 x i8]* %4, i64 0, i64 %57
%59 = load i8, i8* %58
%60 = sext i8 %59 to i32
%61 = icmp eq i32 %55, %60
br i1 %61, label %62, label %69
62: ; preds = %49
%63 = load i32*, i32** %6
%64 = load i32, i32* %2
%65 = sext i32 %64 to i64
%66 = getelementptr inbounds i32, i32* %63, i64 %65
%67 = load i32, i32* %66
%68 = add nsw i32 %67, 1
store i32 %68, i32* %66
br label %72
69: ; preds = %49
%70 = load i32, i32* %2
%71 = add nsw i32 %70, 1
store i32 %71, i32* %2
br label %42
72: ; preds = %62, %42
%73 = load i32, i32* %3
%74 = add nsw i32 %73, 1
store i32 %74, i32* %3
br label %35
75: ; preds = %35
store i32 0, i32* %2
br label %76
76: ; preds = %103, %75
%77 = load i8*, i8** %5
%78 = load i32, i32* %2
%79 = sext i32 %78 to i64
%80 = getelementptr inbounds i8, i8* %77, i64 %79
%81 = load i8, i8* %80
%82 = icmp ne i8 %81, 0
br i1 %82, label %83, label %106
83: ; preds = %76
store i32 0, i32* %3
br label %84
84: ; preds = %100, %83
%85 = load i32, i32* %3
%86 = load i32*, i32** %6
%87 = load i32, i32* %2
%88 = sext i32 %87 to i64
%89 = getelementptr inbounds i32, i32* %86, i64 %88
%90 = load i32, i32* %89
%91 = icmp ne i32 %85, %90
br i1 %91, label %92, label %103
92: ; preds = %84
%93 = load i8*, i8** %5
%94 = load i32, i32* %2
%95 = sext i32 %94 to i64
%96 = getelementptr inbounds i8, i8* %93, i64 %95
%97 = load i8, i8* %96
%98 = sext i8 %97 to i32
%99 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.2, i64 0, i64 0), i32 %98)
br label %100
100: ; preds = %92
%101 = load i32, i32* %3
%102 = add nsw i32 %101, 1
store i32 %102, i32* %3
br label %84
103: ; preds = %84
%104 = load i32, i32* %2
%105 = add nsw i32 %104, 1
store i32 %105, i32* %2
br label %76
106: ; preds = %76
%107 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str.3, i64 0, i64 0))
%108 = load i8*, i8** %5
store i8* null, i8** %5
%109 = load i32*, i32** %6
%110 = bitcast i32* %109 to i8*
store i32* null, i32** %6
ret i32 0
}

LLVM IR (-O2):
@.str = [3 x i8] c"%d\00"
@.str.1 = [3 x i8] c"%s\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca [1001 x i8]
%3 = bitcast i32* %1 to i8*
%4 = getelementptr inbounds [1001 x i8], [1001 x i8]* %2, i64 0, i64 0
%5 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %1)
%6 = load i32, i32* %1
%7 = add nsw i32 %6, 1
%8 = sext i32 %7 to i64
%9 = call i8* @malloc(i64 %8)
%10 = sext i32 %6 to i64
%11 = shl nsw i64 %10, 2
%12 = call i8* @malloc(i64 %11)
%13 = bitcast i8* %12 to i32*
%14 = icmp eq i32 %6, 0
br i1 %14, label %18, label %15
15: ; preds = %0
%16 = zext i32 %6 to i64
%17 = shl nuw nsw i64 %16, 2
br label %18
18: ; preds = %15, %0
%19 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.1, i64 0, i64 0), i8* %9)
%20 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.1, i64 0, i64 0), i8* %4)
%21 = load i8, i8* %4
%22 = icmp eq i8 %21, 0
%23 = load i8, i8* %9
br i1 %22, label %29, label %24
24: ; preds = %18
%25 = icmp eq i8 %23, 0
br label %26
26: ; preds = %24, %49
%27 = phi i64 [ 0, %24 ], [ %50, %49 ]
%28 = phi i8 [ %21, %24 ], [ %52, %49 ]
br i1 %25, label %47, label %31
29: ; preds = %49, %18
store i32 0, i32* %1
%30 = icmp eq i8 %23, 0
br i1 %30, label %80, label %54
31: ; preds = %26, %40
%32 = phi i64 [ %41, %40 ], [ 0, %26 ]
%33 = phi i8 [ %43, %40 ], [ %23, %26 ]
%34 = icmp eq i8 %33, %28
br i1 %34, label %35, label %40
35: ; preds = %31
%36 = and i64 %32, 4294967295
%37 = getelementptr inbounds i32, i32* %13, i64 %36
%38 = load i32, i32* %37
%39 = add nsw i32 %38, 1
store i32 %39, i32* %37
br label %49
40: ; preds = %31
%41 = add nuw i64 %32, 1
%42 = getelementptr inbounds i8, i8* %9, i64 %41
%43 = load i8, i8* %42
%44 = icmp eq i8 %43, 0
br i1 %44, label %45, label %31
45: ; preds = %40
%46 = trunc i64 %41 to i32
br label %47
47: ; preds = %45, %26
%48 = phi i32 [ 0, %26 ], [ %46, %45 ]
store i32 %48, i32* %1
br label %49
49: ; preds = %47, %35
%50 = add nuw i64 %27, 1
%51 = getelementptr inbounds [1001 x i8], [1001 x i8]* %2, i64 0, i64 %50
%52 = load i8, i8* %51
%53 = icmp eq i8 %52, 0
br i1 %53, label %29, label %26
54: ; preds = %29, %73
%55 = phi i32 [ %75, %73 ], [ 0, %29 ]
%56 = sext i32 %55 to i64
%57 = getelementptr inbounds i32, i32* %13, i64 %56
%58 = load i32, i32* %57
%59 = icmp eq i32 %58, 0
br i1 %59, label %73, label %60
60: ; preds = %54, %60
%61 = phi i64 [ %69, %60 ], [ %56, %54 ]
%62 = phi i32 [ %67, %60 ], [ 0, %54 ]
%63 = getelementptr inbounds i8, i8* %9, i64 %61
%64 = load i8, i8* %63
%65 = sext i8 %64 to i32
%66 = call i32 @putchar(i32 %65)
%67 = add nuw nsw i32 %62, 1
%68 = load i32, i32* %1
%69 = sext i32 %68 to i64
%70 = getelementptr inbounds i32, i32* %13, i64 %69
%71 = load i32, i32* %70
%72 = icmp eq i32 %67, %71
br i1 %72, label %73, label %60
73: ; preds = %60, %54
%74 = phi i32 [ %55, %54 ], [ %68, %60 ]
%75 = add nsw i32 %74, 1
store i32 %75, i32* %1
%76 = sext i32 %75 to i64
%77 = getelementptr inbounds i8, i8* %9, i64 %76
%78 = load i8, i8* %77
%79 = icmp eq i8 %78, 0
br i1 %79, label %80, label %54
80: ; preds = %73, %29
%81 = call i32 @putchar(i32 10)
ret i32 0
}