: min ( a b -- min[a,b] )
    2dup <      ( a b [a<b] )
            ( a<b            b<=a          )
    dup 0=      ( a b 0xFF 0x00  a b 0x00 0xFF )
    rot and     ( a 0xFF 0       a 0x00 b      )
    rot rot     ( 0 a 0xFF       b a 0x00      )
    and or ;    ( a              b             )