; Hacker's Delight, page 15, rules j - m
1 var 8 x
2 var 8 y
3 one 8
4 constd 8 2
5 sub 8 1 2
6 add 8 1 -2
7 add 8 6 3
8 ne 1 5 7

9 xor 8 1 2
10 and 8 -1 2
11 mul 8 10 4
12 sub 8 9 11
13 ne 1 5 12

14 and 8 1 -2
15 sub 8 14 10
16 ne 1 5 15

17 mul 8 14 4
18 sub 8 17 9
19 ne 1 5 18

20 or 1 8 13
21 or 1 16 19
22 or 1 20 21
23 root 1 22