-- Test the classic "\SOH" ambiguity

module Main(main) where

main = do { print soh ; print (length (fst (head soh))) ;
            print so  ; print (length (fst (head so))) }
     where
        so, soh :: [(String,String)]
        soh = reads "\"\\SOH\"" -- Should read \SOH
        so  = reads "\"\\SOx\"" -- Should read \SO followed by x
