Align.hs modified