world :: GenParser Char st RawToken
world = do
    string S.world >> many1 trueSpace
    itemName <- stringConstant
    lineEnd
    rs <- properties
    return $ WorldToken itemName rs
world :: GenParser Char st RawToken
world = do
    string S.world >> many1 trueSpace
    itemName <- stringConstant
    lineEnd
    rs <- properties
    return $ WorldToken itemName rs
world = do
    string S.world >> many1 trueSpace
    itemName <- stringConstant
    lineEnd
    rs <- properties
    return $ WorldToken itemName rs