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