open text editor, type hash :: [Char] -> Int hash = (foldl (+) 0) . (map ord) save as hash.hs load script, type: hash "MSDOS 6.000" or hash "SYSTEM 7.0" :-) Ronald