do i = 1,nfiles
call identifynoisyframes [step1]
open file
call framecounter
call ftpois
call dpoiss
call factrl
call gammln
call epnoisemask
call createNoisyMask
call framecounter
call ftpois
call dpoiss
call factrl
call gammln
close file
call writeInfo
call removenoisyframes [step2]
enddo
call filterEventfile [step2]