apModule :: Module -> [(((Int,Int),(Int,Int)),Token)] -> (Either String Module,[(((Int,Int),(Int,Int)),Token)])