$ 'main':    /-iioiii\    /-{main}#
 \-ii{dup}iq<         -eq<
             \-oiiiii/    \-#
$ 'dup' (a -- a a)
 \-(!store!)--(store)-(store)-#