& 10 print not quite working yet. need to wait for scott to fix mod
let gridsize = 20
let root2 = 1.414213562
let cellsize = 20
let linelength = mult (root2, cellsize)

fn tenprint! (times, width) -> {

  pendown!()
  rt!(0.125)
  fd!(linelength)
  penup!()
  back!(linelength)
  lt!(0.125)
  penup!()
  rt!(0.25)
  fd!(cellsize)
  lt!(0.25)

  if eq? (0, mod(times, width)) then {
     home!()
     back!(gridsize)
  } else nil

  if gt? (times, 0) then tenprint!(dec (times), width) else :donezo
}

tenprint!(20, 200)