[ InfixMoveSub;
  print "; move (", (the) noun, ") to (", (the) second, ")";
  move noun to second;
];