Create k_nn.fora

Can be copy and pasted directly into Ufora, then run.