node diagonal_int (i: int) returns (o1, o2 : int); let (o1, o2) = (i, i); tel