clc;
k=[0 1 1 1;
   0 1 1 0;
   0 0 1 0;
   0 0 1 0];
disp("The prime implicants of the function f");
karmap(k);