Update example.hs