length(dir([pwd filesep '*.m']))