\usemodule[fonts-shapes]

\setupbodyfont[computer-modern-unicode,tt,9pt]

\setuplayout
  [backspace=1cm,
   topspace=1cm,
   footer=1cm,
   header=0cm,
   height=middle,
   width=middle]

\starttext

    \showfontshapes

\stoptext
