gmFinal :: GMState -> Bool
gmFinal s = case getCode s of
    [] -> True
    _ -> False   
gmFinal :: GMState -> Bool
gmFinal s = case getCode s of
    [] -> True
    _ -> False   
gmFinal s = case getCode s of
    [] -> True
    _ -> False   