Added DCG parser in prolog