Parser<(List<Token<String>>, List<ValueNode>)> binaryMessage() => seq2( ref0(binaryToken), ref0(unaryExpression), ).map2((t, expr) => ([t], [expr]));