(defvar canvas (#j:document:getElementById "canvassample")) (defvar ctx ((oget canvas "getContext") "2d")) ((oget ctx "beginPath")) ((oget ctx "moveTo") 20 20) ((oget ctx "lineTo") 120 20) ((oget ctx "lineTo") 120 120) ((oget ctx "lineTo") 20 120) ((oget ctx "closePath")) ((oget ctx "stroke"))