emptyState :: St
emptyState = St {
                 stSeen = Set.empty,
                 stLast = Nothing,
                 stHadAProblem = False
             }
emptyState :: St
emptyState = St {
                 stSeen = Set.empty,
                 stLast = Nothing,
                 stHadAProblem = False
             }
emptyState = St {
                 stSeen = Set.empty,
                 stLast = Nothing,
                 stHadAProblem = False
             }