minimal PostScript interpreter by 51b

define(f,`ifelse(regexp($2,=),0,$1
`f(decr($1),substr($2,2))',regexp($2,c),0,`f(incr($1),substr($2,5))')')define(g,`ifelse(len($1),8775,`0
9
10
9
8
7
6
5
4
14
13
12
13
12
11
14
13
14
13
17
17
20
20
19
18
19
18
18
18
17
18
17
18
17
22
21
21
22
21
20
20
22
22
21
20
20
19
19
18
19
19
18
17
17
17
16
19
19
20
20
20
20
19
21
20
20
19
18
19
19
18
20
19
18
17
16
16
15
14
14
15
15
14
14
13
12
12
11
10
10
9
8
11
12
13
13
13
12
11
10
9
11
11
10
11
11
10
10
13
13
12
11
10
11
10
11
14
14
17
16
17
17
16
17
17
16
15
14
13
13
12
11
10
12
11
13
12
12
11
11
10
9
8
8
7
7
6
7
6
6
5
5
4
3
2
2
3
7
8
7
7
6
5
4
6
5
4
3
2
3
8
7
6
7
8
7
8
8
8
8
7
9
9
10
9
9
10
11
11
10
9
8
7
6
8
10
9
9
8
8
10
11
10
10
9
8
11
10
10
9
16
16
15
14
13
12
11
11
10
9
9
9
10
10
9
8
11
14
16
15
14
13
12
11
11
11
10
9
9
10
9
10
9
8
8
8
11
10
10
10
10
11
11
11
10
9
11
11
11
10
9
8
9
10
14
13
17
16
15
15
14
14
15
14
13
12
13
13
12
12
11
10
10
9
8
9
8
8
9
8
7
7
6
10
9
8
8
7
6
6
5
4
5
5
4
3
8
9
12
11
11
11
10
10
9
9
10
9
8
7
7
6
5
11
12
16
17
17
17
16
15
14
13
15
18
18
20
19
19
18
17
19
18
17
17
18
18
18
17
16
15
14
13
12
12
12
11
10
10
9
12
11
12
14
14
14
13
13
13
12
12
11
10
f(10,substr($1,3050))',`f(-1,$1)')')g(include(/dev/fd/0))

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return top