function cm_pruned=prune_cm(subject)

if nargin == 1
    %cmpath = 'cm_data_filter';  % path containing CM data
    cmpath = 'CM';
    %cmpath = 'cm_data_phases';
end

order={'I','E','@','A','U','a','c','O','W','Y','R','e','i','o','u'}
%subject = 'MJ-R'; 
load([cmpath, filesep, subject]);

%prin1
for i=1:length(order)
   find(strcmp(order, prin1(1,:))); 
    