to square :side
  repeat 4 [forward :side right 90]
end
to colsquare :side :colour
  setc :colour
  square :side
end

cg pd colsquare 100 "red


cg pd colsquare 100 "blue