alias clrme {
  var %x = $1-
  var %y = $null
  var %r, %fg, %bg, %word
  var %c = 0.1.0.2.0.3.0.4.0.5.0.6.0.7.0.9.0.10.0.12.0.13.0.14.
  %c = %c $+ 1.3.1.4.1.6.1.7.1.8.1.9.1.10.1.11.1.13.1.14.1.15.
  %c = %c $+ 2.0.2.3.2.4.2.6.2.7.2.8.2.9.2.10.2.11.2.13.2.14.2.15.
  %c = %c $+ 3.0.3.1.3.2.3.5.3.7.3.8.3.11.3.15.
  %c = %c $+ 4.0.4.1.4.2.4.3.4.5.4.6.4.8.4.9.4.10.4.11.4.12.4.14.4.15.
  %c = %c $+ 5.0.5.3.5.7.5.8.5.9.5.10.5.11.5.14.5.15.
  %c = %c $+ 6.0.6.1.6.2.6.7.6.8.6.9.6.11.6.15.
  %c = %c $+ 7.0.7.1.7.2.7.3.7.5.7.6.7.10.7.11.7.12.7.14.7.15.
  %c = %c $+ 8.1.8.2.8.3.8.4.8.5.8.6.8.10.8.12.8.13.8.14.
  %c = %c $+ 9.1.9.2.9.4.9.5.9.6.9.12.9.14.
  %c = %c $+ 10.0.10.1.10.5.10.7.10.8.10.15.
  %c = %c $+ 11.1.11.2.11.3.11.4.11.5.11.6.11.12.11.14.
  %c = %c $+ 12.0.12.4.12.7.12.8.12.9.12.10.12.11.12.13.12.14.12.15.
  %c = %c $+ 13.0.13.1.13.2.13.3.13.5.13.6.13.8.13.10.13.12.13.14.13.15.
  %c = %c $+ 14.0.14.1.14.2.14.5.14.6.14.7.14.8.14.9.14.11.14.12.14.15.
  %c = %c $+ 15.1.15.2.15.3.15.4.15.5.15.6.15.10.15.12.15.13.15.14
  var %i = 1
  var %wc = $numtok(%x,32)
  while (%i <= %wc) {
    %word = $gettok(%x,%i,32)
    %r = $calc($rand(0, $calc($numtok(%c,46) / 2 - 1)) * 2)
    %fg = $gettok(%c,$calc(%r + 1),46)
    %bg = $gettok(%c,$calc(%r + 2),46)
    %word = $chr(3) $+ %fg $+ , $+ %bg $+ %word $+ $chr(3)
    %y = $instok(%y,%word,%i,32)
    inc %i
  }
  /say %y
}