Update pe24.hs

fixed main