here, take this function, now wait a sec while I ruin golf it

edited: here, take [this function](https://chat.stackexchange.com/messages/57832522/history), now wait a sec while I ---ruin--- golf it

edited: here, take [this function](https://chat.stackexchange.com/messages/57832522/history)

edited: here, take this function

said: val to_ir : Field -> IR_Field = Vector.mapi ( fn (y, row) => let fun pairs x acc (a::b::rest) = pairs (x+1) ( { src = (a,b) , cmd = NONE : IR_Cmd option , x_y = (x, y) }::acc ) rest | pairs x acc _ = acc in (Vector.fromList o List.rev o pairs 0 [] o String.explode) row end )