\usemodule[graph]

\starttext
\startMPcode
draw unitsquare scaled 1cm;
\stopMPcode
\stoptext