System.hs with ElementResult calc