/gay {
  if ($1 !isnum) || ($2 !isnum) {
    echo -a 4Need numbers: x * y
    halt
  }
  var %colors 4,7 7,8 8,9 9,11 11,12 12,2 2,6 6,13 13,4
  var %y = 0
  while (%y < $2) {
    var %text
    var %offset = %y
    var %x = 0
    while (%x < $1) {
      set %lolwut $rand(100,900)
      var %colorFG = $gettok(%colors,$calc($calc(%offset % $numtok(%colors,32)) + 1),32)
      var %colorBG = $gettok(%colors,$calc($calc($calc(%offset + 1) % $numtok(%colors,32)) + 1),32)
      %text = %text $+ $+($clr,%colorFG,$chr(44),%colorBG,$chr(%lolwut))
      inc %x
      inc %offset
    }
    say %text
    inc %y
  }
}
/gay2 {
  if ($1 !isnum) || ($2 !isnum) {
    echo -a 4Need numbers: x * y
    halt
  }
  var %y = 0
  while (%y < $2) {
    var %text
    var %offset = %y
    var %x = 0
    while (%x < $1) {
      set %lolwut $rand(100,900)
      %text = %text $+ $+($chr(%lolwut))
      inc %x
      inc %offset
    }
    say %text
    inc %y
  }
}
}
/gay3 {
if ($1 !isnum) || ($2 !isnum) {
  echo -a 4Need numbers: x * y
  halt
}
var %colors 4,7 7,8 8,9 9,11 11,12 12,2 2,6 6,13 13,4
var %y = 0
while (%y < $2) {
  var %text
  var %offset = %y
  var %x = 0
  while (%x < $1) {
    var %colorFG = $gettok(%colors,$calc($calc(%offset % $numtok(%colors,32)) + 1),32)
    var %colorBG = $gettok(%colors,$calc($calc($calc(%offset + 1) % $numtok(%colors,32)) + 1),32)
    %text = %text $+ $+($clr,%colorFG,$chr(44),%colorBG,$3-)
    inc %x
    inc %offset
  }
  say %text
  inc %y
}
}