[ InfixActionSub;
  print "; <", (InfixPrintAction) infix_lvalue;
  if (noun) print " (", (the) noun, ")";
  if (second) print " (", (the) second, ")";
  print ">^";
  if (second) <<(infix_lvalue) noun second>>;
  if (noun) <<(infix_lvalue) noun>>;
  <<(infix_lvalue)>>;
];