zhlorem.typ

#let default-chinese-text = (
  "道可道非常道名可名非常名无名天地之始有名万物之母故常无欲以观其妙常有欲以观其徼此两者同出而异名同谓之玄玄之又玄众妙之门",
  "天下皆知美之为美斯恶已皆知善之为善斯不善已故有无相生难易相成高下相倾音声相和前后相随",
  "不尚贤使民不争不贵难得之货使民不为盗不见可欲使民心不乱是以圣人之治虚其心实其腹弱其志强其骨常使民无知无欲使夫智者不敢为也为无为则无不治",
  "道冲而用之或不盈渊兮似万物之宗挫其锐解其纷和其光同其尘湛兮似或存吾不知谁之子象帝之先",
  "天地不仁以万物为刍狗圣人不仁以百姓为刍狗天地之间其犹橐迭乎虚而不屈动而愈出多言数穷不如守中",
  "谷神不死是谓玄牝玄牝之门是谓天地根绵绵若存用之不勤",
  "天长地久天地所以能长且久者以其不自生故能长生是以圣人后其身而身先外其身而身存非以其无私耶故能成其私",
  "上善若水水善利万物而不争处众人之所恶故几于道居善地心善渊与善仁言善信正善治事善能动善时夫唯不争故无尤",
  "持而盈之不如其已揣而锐之不可长保金玉满堂莫之能守富贵而骄自遗其咎功遂身退天之道",
  "载营魄抱一能无离乎专气致柔能婴儿乎涤除玄览能无疵乎爱民治国能无知乎天门开阖能为雌乎明白四达能无为乎生之畜之生而不有为而不恃长而不宰是谓玄德",
  "三十辐共一毂当其无有车之用埏埴以为器当其无有器之用凿户牖以为室当其无有室之用故有之以为利无之以为用",
  "五色令人目盲五音令人耳聋五味令人口爽驰骋畋猎令人心发狂难得之货令人行妨是以圣人为腹不为目故去彼取此",
  "宠辱若惊贵大患若身何谓宠辱若惊宠为下得之若惊失之若惊是谓宠辱若惊何谓贵大患若身吾所以有大患者为吾有身及吾无身吾有何患故贵以身为天下若可寄天下爱以身为天下若可托天下",
  "视之不见名曰夷听之不闻名曰希搏之不得名曰微此三者不可致诘故混而为一其上不皦其下不昧绳绳不可名复归于无物是谓无状之状无物之象是谓惚恍迎之不见其首随之不见其后执古之道以御今之有能知古始是谓道纪",
  "古之善为士者微妙玄通深不可识夫唯不可识故强为之容豫焉若冬涉川犹兮若畏四邻俨兮其若客涣兮若冰之将释敦兮其若朴旷兮其若谷混兮其若浊孰能浊以静之徐清孰能安以动之徐生保此道者不欲盈夫唯不盈故能蔽不新成",
  "致虚极守静笃万物并作吾以观复夫物芸芸各复归其根归根曰静是谓复命复命曰常知常曰明不知常妄作凶知常容容乃公公乃王王乃天天乃道道乃久没身不殆",
  "太上不知有之其次亲而誉之其次畏之其次侮之信不足焉有不信焉悠兮其贵言功成事遂百姓皆谓我自然",
  "大道废有仁义智慧出有大伪六亲不和有孝慈国家昏乱有忠臣",
  "绝圣弃智民利百倍绝仁弃义民复孝慈绝巧弃利盗贼无有此三者以为文不足故令有所属见素抱朴少私寡欲",
  "绝学无忧唯之与阿相去几何善之与恶相去若何人之所畏不可不畏荒兮其未央哉众人熙熙如享太牢如春登台我独泊兮其未兆如婴儿之未孩儽儽兮若无所归众人皆有余而我独若遗我愚人之心也哉沌沌兮俗人昭昭我独昏昏俗人察察我独闷闷澹兮其若海飂兮若无止众人皆有以而我独顽且鄙我独异于人而贵食母",
  "孔德之容惟道是从道之为物惟恍惟惚惚兮恍兮其中有象恍兮惚兮其中有物窈兮冥兮其中有精其精甚真其中有信自古及今其名不去以阅众甫吾何以知众甫之状哉以此",
  "曲则全枉则直洼则盈敝则新少则得多则惑是以圣人抱一为天下式不自见故明不自是故彰不自伐故有功不自矜故长夫唯不争故天下莫能与之争古之所谓曲则全者岂虚言哉诚全而归之",
  "希言自然故飘风不终朝骤雨不终日孰为此者天地天地尚不能久而况于人乎故从事于道者道者同于道德者同于德失者同于失同于道者道亦乐得之同于德者德亦乐得之同于失者失亦乐得之信不足焉有不信焉",
  "企者不立跨者不行自见者不明自是者不彰自伐者无功自矜者不长其在道也曰余食赘行物或恶之故有道者不处",
  "有物混成先天地生寂兮寥兮独立不改周行而不殆可以为天下母吾不知其名强字之曰道强为之名曰大大曰逝逝曰远远曰反故道大天大不大亦大域中有四大而人居其一焉人法地地法天天法道道法自然",
  "重为轻根静为躁君是以君子终日行不离辎重虽有荣观燕处超然奈何万乘之主而以身轻天下轻则失根躁则失君",
  "善行无辙迹善言无瑕谪善数不用筹策善闭无关楗而不可开善结无绳约而不可解是以圣人常善救人故无弃人常善救物故无弃物是谓袭明故善人者不善人之师不善人者善人之资贵其师爱其资虽智大迷是谓要妙",
  "知其雄守其雌为天下溪为天下溪常德不离复归于婴儿知其白守其黑为天下式为天下式常德不忒复归于无极知其荣守其辱为天下谷为天下谷常德乃足复归于朴朴散则为器圣人用之则为官长故大制不割",
  "将欲取天下而为之吾见其不得已天下神器不可为也为者败之执者失之故物或行或随或嘘或吹或强或羸或挫或隳是以圣人去甚去奢去泰",
  "以道佐人主者不以兵强天下其事好还师之所处荆棘生焉大军之后必有凶年善有果而已不敢以取强果而勿矜果而勿伐果而勿骄果而不得已果而勿强物壮则老是谓不道不道早已",
  "夫佳兵者不祥之器物或恶之故有道者不处君子居则贵左用兵则贵右兵者不祥之器非君子之器不得已而用之恬淡为上胜而不美而美之者是乐杀人夫乐杀人者则不可以得志于天下矣吉事尚左凶事尚右偏将军居左上将军居右言以丧礼处之杀人之众以哀悲泣之战胜以丧礼处之",
  "道常无名朴虽小天下莫能臣侯王若能守之万物将自宾天地相合以降甘露民莫之令而自均始制有名名亦既有夫亦将知止知止可以不殆譬道之在天下犹川谷之与江海",
  "知人者智自知者明胜人者有力自胜者强知足者富强行者有志不失其所者久死而不亡者寿",
  "大道泛兮其可左右万物恃之以生而不辞功成而不有衣养万物而不为主常无欲可名于小小万物归焉而不为主可名于大大以其终不自为大故能成其大",
  "执大象天下往往而不害安平太乐与饵过客止道之出口淡乎其无味视之不足见听之不足闻用之不足既"
)

#let zhlorem(count) = {
  // count: 生成的字符数量
  if type(count) != int or count <= 0 {
    // 如果 count 无效，返回一段默认文本或空字符串
    return default-chinese-text.first() // 或者返回 ""
  }

  let result = ""
  let current-len = 0
  let source-text-joined = default-chinese-text.join("")
  let source-clusters = source-text-joined.clusters()
  let source-len = source-clusters.len()

  if source-len == 0 {
    return "" // 如果源文本为空，直接返回空
  }

  while current-len < count {
    // 从 source_clusters 中按需取字符，循环使用
    let cluster_to_add = source-clusters.at(calc.rem(current-len, source-len))
    result += cluster_to_add
    current-len += 1
  }
  return result
}