0 1 19
{
 "Level" second "Def" get
 "LevCell" 0 "Def" get
 empty "Dpic" set empty "Dsel" set
 "Lever" exch "Def" set
} for