locationsOccursionElement (SubroutineCall (Just l) _ _) = M.singleton l 1
locationsOccursionElement (SubroutineCall (Just l) _ _) = M.singleton l 1
locationsOccursionElement (SubroutineCall (Just l) _ _) = M.singleton l 1