modified PickUpFileName.hs (output : IO () )