remove fclose('all')
add comments