added run.hs