$"BAD MOFO+"

$r10000
$a25

t 10 >> t 

t 16 >> 3 & 1 + * 3 / 2 *

+ t 2 * 

t t 10 >> x 3 + &

t 15 >> 7 & ^

2 *

* ^ |

t 10 >> 1 & 1 + *

t 6 x - >> +

255 & + 2 / DUP 8 +

v |