showUntypedSimValue (SimValue int specials) = show int ++ if null specials
        then "" else " " ++ (joinWith " " $ map showSpecial specials)
        where
            showSpecial (i, StringSimValue str) = "\"" ++ str ++ "\"@" ++ show i
            showSpecial _ = "???"
showUntypedSimValue (SimValue int specials) = show int ++ if null specials
        then "" else " " ++ (joinWith " " $ map showSpecial specials)
        where
            showSpecial (i, StringSimValue str) = "\"" ++ str ++ "\"@" ++ show i
            showSpecial _ = "???"
showUntypedSimValue (SimValue int specials) = show int ++ if null specials
        then "" else " " ++ (joinWith " " $ map showSpecial specials)
        where
            showSpecial (i, StringSimValue str) = "\"" ++ str ++ "\"@" ++ show i
            showSpecial _ = "???"