function modktest()
    m=[0.1 0.2 0.3];
    s=%k(m);
    disp(s);
endfunction