; load file

((clear)
  (stroke (draw ($path) ($rect)) 1 "red")
)