accessAsPointer :: ((String,Bool),String) -> String
accessAsPointer ((_,False),n) = "*" ++ n
accessAsPointer :: ((String,Bool),String) -> String
accessAsPointer ((_,False),n) = "*" ++ n
accessAsPointer ((_,False),n) = "*" ++ n