Add sloc.hs, currently still incomplete.