correct evolution.hs