data; param N := 10000; param M := 100; param P := 100;