$"TEMPLE OF STAB" $a20 t 11 x - >> 3 % 1 + t ~ 14 >> 19 & 9 - * t * 9 / dup t 9 x + >> 15 & 2 + x + + ^ dup x 1 + * & t 8 x - >> | ( 255 & + 2 / DUP ) v |