+def print_penpos (suffix $)=
+ message "z"&str $ &"l = ("&decimal x.$.l&", "&decimal y.$.l&"); z"&str $ &"r = ("&decimal x.$.r&", "&decimal y.$.r&");";
+enddef;
+
+%fet_beginchar("accTEST", "accTEST", "accTEST")
+% set_char_box(.4staffsize#, .4staffsize#, 0, 2.4staff_space#);
+% def_some_vars;
+% penlabels(10, 11, 12, 13, 14);
+% penstroke z10e--z11e{right}..z12e..z13e{left}--z14e;
+%fet_endchar;
+