underlining in main.hs