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

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

14 or 8 1 2
15 add 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