add scales.hs
first try at mapping scales onto sample sets.