Update Output.hs