alias chess {
  window -p @chess -1 -1 500 500
  drawrect -f @chess 0 0 0 0 500 500
  var %x = 0
  var %s = 0
  while %s < 5 {
    if %x = 5 { set %x 0
      inc %s
    }
    drawrect -nf @chess 14 0 $calc(%x * 100 +15) $calc(%s * 100 +10) 50 50
    inc %x
  }
  drawdot @chess
}