change main.hs
switch to bind op
minor changes