alias tictac {
  %x = $base($calc($1 -111111111),2,10)
  %i = 8
  %z = return
  while %i {
    %m = $asc($mid(ÿÿÿ,%i)) + $asc($mid(Á2
%ŒCN,%i))
    if $and(%x,%m) = %m %z 2
    if $and($not(%x),%m) = %m %z 1
    dec %i
  }
  %z 0