Note that the original program makes direct use of accented characters in the CSX encoding; here it has been converted to use Unicode equivalents to ensure readability on modern computers. This means that downloading and attempting to run the program as it stands is unlikely to work.
; (mbh-query-replace-regexp "\\([a'ā]\\)cala " "\\1cala") ; (mbh-query-replace-regexp "\\([a'ā]\\)cyuta " "\\1cyuta") ; (mbh-query-replace-regexp "\\([a'ā]\\)gastya " "\\1gastya") (mbh-query-replace-regexp "\\([a'ā]\\)kṛtavraṇa " "\\1kṛtavraṇa") (mbh-query-replace-regexp "\\([a'ā]\\)rjuna " "\\1rjuna") (mbh-query-replace-regexp "\\([a'ā]\\)rka " "\\1rka") (mbh-query-replace-regexp "\\([a'ā]\\)sura " "\\1sura") (mbh-query-replace-regexp "\\([a'ā]\\)yodhyā " "\\1yodhyā") (mbh-query-replace-regexp "\\([a'ā]\\)ṅgada " "\\1ṅgada") (mbh-query-replace-regexp "aikṣvāka " "aikṣvāka") (mbh-query-replace-regexp "airāvata " "airāvata") (mbh-query-replace-regexp "badar\\([īy]\\) " "badar\\1") (mbh-query-replace-regexp "baladeva " "baladeva") (mbh-query-replace-regexp "balarāma " "balarāma") (mbh-query-replace-regexp "bhagavad " "bhagavad") (mbh-query-replace-regexp "bhagīratha " "bhagīratha") (mbh-query-replace-regexp "bharadvāja " "bharadvāja") (mbh-query-replace-regexp "bharata " "bharata") (mbh-query-replace-regexp "bhava " "bhava") (mbh-query-replace-regexp "bhāgīrath\\([īy]\\) " "bhāgīrath\\1") (mbh-query-replace-regexp "bhāradvāja " "bhāradvāja") (mbh-query-replace-regexp "bhārata " "bhārata") (mbh-query-replace-regexp "bhārgava " "bhārgava") (mbh-query-replace-regexp "bhāskara " "bhāskara") (mbh-query-replace-regexp "bhīma " "bhīma") (mbh-query-replace-regexp "bhīmasena " "bhīmasena") (mbh-query-replace-regexp "bhīṣma " "bhīṣma") (mbh-query-replace-regexp "brāhmaṇa " "brāhmaṇa") (mbh-query-replace-regexp "bāhuka " "bāhuka") (mbh-query-replace-regexp "dakṣa " "dakṣa") (mbh-query-replace-regexp "damayant\\([īy]\\) " "damayant\\1") (mbh-query-replace-regexp "daśaratha " "daśaratha") (mbh-query-replace-regexp "daśārṇa " "daśārṇa") (mbh-query-replace-regexp "devakīputra " "devakīputra") (mbh-query-replace-regexp "devakīsuta " "devakīsuta") (mbh-query-replace-regexp "devarāja " "devarāja") (mbh-query-replace-regexp "devavrata " "devavrata") (mbh-query-replace-regexp "dhanada " "dhanada") (mbh-query-replace-regexp "dhanaṃjaya " "dhanaṃjaya") (mbh-query-replace-regexp "dhaneśvara " "dhaneśvara") (mbh-query-replace-regexp "dharmaputra " "dharmaputra") (mbh-query-replace-regexp "dharmarāja " "dharmarāja") (mbh-query-replace-regexp "dhṛṣṭadyumna " "dhṛṣṭadyumna") (mbh-query-replace-regexp "dilīpa " "dilīpa") (mbh-query-replace-regexp "divākara " "divākara") (mbh-query-replace-regexp "draupad\\([īy]\\) " "draupad\\1") (mbh-query-replace-regexp "droṇa " "droṇa") (mbh-query-replace-regexp "drupada " "drupada") (mbh-query-replace-regexp "duryodhana " "duryodhana") (mbh-query-replace-regexp "duḥśāsana " "duḥśāsana") (mbh-query-replace-regexp "dyumatsena " "dyumatsena") (mbh-query-replace-regexp "dānava " "dānava") (mbh-query-replace-regexp "dāśārṇa " "dāśārṇa") (mbh-query-replace-regexp "gandharva " "gandharva") (mbh-query-replace-regexp "garuḍa " "garuḍa") (mbh-query-replace-regexp "gautam\\([īy]\\) " "gautam\\1") (mbh-query-replace-regexp "gautama " "gautama") (mbh-query-replace-regexp "gaṅgā " "gaṅgā") (mbh-query-replace-regexp "godāvar\\([īy]\\) " "godāvar\\1") (mbh-query-replace-regexp "gomat\\([īy]\\) " "gomat\\1") (mbh-query-replace-regexp "govinda " "govinda") (mbh-query-replace-regexp "gudākeśa " "gudākeśa") (mbh-query-replace-regexp "gāṅgeya " "gāṅgeya") (mbh-query-replace-regexp "halāyudha " "halāyudha") (mbh-query-replace-regexp "hara " "hara") (mbh-query-replace-regexp "hṛṣīkeśa " "hṛṣīkeśa") (mbh-query-replace-regexp "ila " "ila") (mbh-query-replace-regexp "indra " "indra") (mbh-query-replace-regexp "indrajit " "indrajit") (mbh-query-replace-regexp "jamb\\([ūv]\\) " "jamb\\1") (mbh-query-replace-regexp "janaka " "janaka") (mbh-query-replace-regexp "janamejaya " "janamejaya") (mbh-query-replace-regexp "janārdana " "janārdana") (mbh-query-replace-regexp "jarā " "jarā") (mbh-query-replace-regexp "jāhnav\\([īy]\\) " "jāhnav\\1") (mbh-query-replace-regexp "jāmadagnya " "jāmadagnya") (mbh-query-replace-regexp "kabandha " "kabandha") (mbh-query-replace-regexp "kaikey\\([īy]\\) " "kaikey\\1") (mbh-query-replace-regexp "karṇa " "karṇa") (mbh-query-replace-regexp "kaunteya " "kaunteya") (mbh-query-replace-regexp "kaurava " "kaurava") (mbh-query-replace-regexp "kausalyā " "kausalyā") (mbh-query-replace-regexp "kauśik\\([īy]\\) " "kauśik\\1") (mbh-query-replace-regexp "keśava " "keśava") (mbh-query-replace-regexp "khara " "khara") (mbh-query-replace-regexp "kiṣkindhā " "kiṣkindhā") (mbh-query-replace-regexp "kubera " "kubera") (mbh-query-replace-regexp "kunt\\([īy]\\) " "kunt\\1") (mbh-query-replace-regexp "kur\\([uv]\\) " "kur\\1") (mbh-query-replace-regexp "kāmapāla " "kāmapāla") (mbh-query-replace-regexp "kṛp\\([īy]\\) " "kṛp\\1") (mbh-query-replace-regexp "kṛpa " "kṛpa") (mbh-query-replace-regexp "kṛtavīrya " "kṛtavīrya") (mbh-query-replace-regexp "kṛṣṇa " "kṛṣṇa") (mbh-query-replace-regexp "kṛṣṇadvaipāyana " "kṛṣṇadvaipāyana") (mbh-query-replace-regexp "kṛṣṇā " "kṛṣṇā") (mbh-query-replace-regexp "lakṣmaṇa " "lakṣmaṇa") (mbh-query-replace-regexp "laṅkā " "laṅkā") (mbh-query-replace-regexp "madh\\([uv]\\) " "madh\\1") (mbh-query-replace-regexp "madhusūdana " "madhusūdana") (mbh-query-replace-regexp "madrarāja " "madrarāja") (mbh-query-replace-regexp "mahendra " "mahendra") (mbh-query-replace-regexp "mādhava " "mādhava") (mbh-query-replace-regexp "nakula " "nakula") (mbh-query-replace-regexp "nala " "nala") (mbh-query-replace-regexp "nandana " "nandana") (mbh-query-replace-regexp "narmadā " "narmadā") (mbh-query-replace-regexp "niṣadha " "niṣadha") (mbh-query-replace-regexp "nārada " "nārada") (mbh-query-replace-regexp "nārāyaṇa " "nārāyaṇa") (mbh-query-replace-regexp "parvata " "parvata") (mbh-query-replace-regexp "parṇāda " "parṇāda") (mbh-query-replace-regexp "phalguna " "phalguna") (mbh-query-replace-regexp "prahrāda " "prahrāda") (mbh-query-replace-regexp "pulastya " "pulastya") (mbh-query-replace-regexp "puraṃdara " "puraṃdara") (mbh-query-replace-regexp "puṣkara " "puṣkara") (mbh-query-replace-regexp "pākaśāsana " "pākaśāsana") (mbh-query-replace-regexp "pārtha " "pārtha") (mbh-query-replace-regexp "pārīkṣita " "pārīkṣita") (mbh-query-replace-regexp "pārṣata " "pārṣata") (mbh-query-replace-regexp "pāñcāl\\([īy]\\) " "pāñcāl\\1") (mbh-query-replace-regexp "pāñcāla " "pāñcāla") (mbh-query-replace-regexp "pāṇḍava " "pāṇḍava") (mbh-query-replace-regexp "rauhiṇeya " "rauhiṇeya") (mbh-query-replace-regexp "rudra " "rudra") (mbh-query-replace-regexp "rādheya " "rādheya") (mbh-query-replace-regexp "rākṣas\\([īy]\\) " "rākṣas\\1") (mbh-query-replace-regexp "rākṣasa " "rākṣasa") (mbh-query-replace-regexp "rāma " "rāma") (mbh-query-replace-regexp "rāvaṇa " "rāvaṇa") (mbh-query-replace-regexp "sagara " "sagara") (mbh-query-replace-regexp "sahadeva " "sahadeva") (mbh-query-replace-regexp "sahasranetra " "sahasranetra") (mbh-query-replace-regexp "sahasrākṣa " "sahasrākṣa") (mbh-query-replace-regexp "sanatkumāra " "sanatkumāra") (mbh-query-replace-regexp "satyavatīsuta " "satyavatīsuta") (mbh-query-replace-regexp "saubala " "saubala") (mbh-query-replace-regexp "saubha " "saubha") (mbh-query-replace-regexp "saṃkarṣaṇa " "saṃkarṣaṇa") (mbh-query-replace-regexp "sitāśva " "sitāśva") (mbh-query-replace-regexp "siṃhikā " "siṃhikā") (mbh-query-replace-regexp "somadatta " "somadatta") (mbh-query-replace-regexp "sugrīva " "sugrīva") (mbh-query-replace-regexp "suyodhana " "suyodhana") (mbh-query-replace-regexp "svāhā " "svāhā") (mbh-query-replace-regexp "sāraṇa " "sāraṇa") (mbh-query-replace-regexp "sāvitra " "sāvitra") (mbh-query-replace-regexp "sītā " "sītā") (mbh-query-replace-regexp "sūrya " "sūrya") (mbh-query-replace-regexp "sūtaja " "sūtaja") (mbh-query-replace-regexp "tapana " "tapana") (mbh-query-replace-regexp "tretā " "tretā") (mbh-query-replace-regexp "trijaṭā " "trijaṭā") (mbh-query-replace-regexp "tārā " "tārā") (mbh-query-replace-regexp "uttara " "uttara") (mbh-query-replace-regexp "vaikartana " "vaikartana") (mbh-query-replace-regexp "vaiśravaṇa " "vaiśravaṇa") (mbh-query-replace-regexp "varuṇa " "varuṇa") (mbh-query-replace-regexp "vas\\([uv]\\) " "vas\\1") (mbh-query-replace-regexp "vasiṣṭha " "vasiṣṭha") (mbh-query-replace-regexp "vasuṣeṇa " "vasuṣeṇa") (mbh-query-replace-regexp "vatsa " "vatsa") (mbh-query-replace-regexp "veda " "veda") (mbh-query-replace-regexp "vibhāṇḍaka " "vibhāṇḍaka") (mbh-query-replace-regexp "vibhīṣaṇa " "vibhīṣaṇa") (mbh-query-replace-regexp "videha " "videha") (mbh-query-replace-regexp "vidura " "vidura") (mbh-query-replace-regexp "vijaya " "vijaya") (mbh-query-replace-regexp "vikartana " "vikartana") (mbh-query-replace-regexp "vikarṇa " "vikarṇa") (mbh-query-replace-regexp "vinatā " "vinatā") (mbh-query-replace-regexp "virocana " "virocana") (mbh-query-replace-regexp "virāṭa " "virāṭa") (mbh-query-replace-regexp "viśvarūpa " "viśvarūpa") (mbh-query-replace-regexp "viśvāmitra " "viśvāmitra") (mbh-query-replace-regexp "vyāsa " "vyāsa") (mbh-query-replace-regexp "vārṣṇeya " "vārṣṇeya") (mbh-query-replace-regexp "vāsava " "vāsava") (mbh-query-replace-regexp "vāsudeva " "vāsudeva") (mbh-query-replace-regexp "vāyuputra " "vāyuputra") (mbh-query-replace-regexp "vṛkodara " "vṛkodara") (mbh-query-replace-regexp "vṛtra " "vṛtra") (mbh-query-replace-regexp "vṛṣabha " "vṛṣabha") (mbh-query-replace-regexp "yajñasena " "yajñasena") (mbh-query-replace-regexp "yakṣa " "yakṣa") (mbh-query-replace-regexp "yama " "yama") (mbh-query-replace-regexp "yamunā " "yamunā") (mbh-query-replace-regexp "yājñasen\\([īy]\\) " "yājñasen\\1") (mbh-query-replace-regexp "yudhiṣṭhira " "yudhiṣṭhira") (mbh-query-replace-regexp "āditya " "āditya") (mbh-query-replace-regexp "īśvara " "īśvara") (mbh-query-replace-regexp "ṛcīka " "ṛcīka") (mbh-query-replace-regexp "śac\\([īy]\\) " "śac\\1") (mbh-query-replace-regexp "śakra " "śakra") (mbh-query-replace-regexp "śalya " "śalya") (mbh-query-replace-regexp "śatrughna " "śatrughna") (mbh-query-replace-regexp "śaṅkara " "śaṅkara") (mbh-query-replace-regexp "śiva " "śiva") (mbh-query-replace-regexp "śvetavāhana " "śvetavāhana") (mbh-query-replace-regexp "śālva " "śālva") (mbh-query-replace-regexp "śāntanava " "śāntanava") (mbh-query-replace-regexp "śāradvat\\([īy]\\) " "śāradvat\\1") (mbh-query-replace-regexp "śāradvata " "śāradvata") (mbh-query-replace-regexp "śūra " "śūra") (mbh-query-replace-regexp "śūrpaṇakhā " "śūrpaṇakhā")