modified PickUpFileName.hs (input Type : Integer)