#uxntal #bitart inspired by @bitartbot

https://paste.sr.ht/~ismael-vc/c68733874b0a824a5b28ad3166bc6933a17e1cd6

( y 23 | x y ^ / y 24 & x y & | ^ x ~ y 16 + | ~ * 10 % )

@λ ( x y -- x y val )
DUP #17 ORA STH
EORk
STHr DIV STH
DUP #18 AND STH
ANDk
STHr ORA
STHr EOR STH
OVR :NOT STH
DUP #10 ADD
STHr ORA
:NOT
STHr MUL
#0a :MOD
JMP2r