on *:input:*:{ if ($left($1,1) != /) {
    var %x = 1
    var %y = 9
    while (%x <= $0) {
      if (%y == 06,00) {
        var %y = 06,00
      }
      else {
        var %y = 06,00
      }
      %colour.var = %colour.var $+(,%y,$($+($,%x),2)))
      inc %x
    }
    say $replace( $+ %colour.var, lol,6lol)
    unset %colour.var
    .halt
  }