packages feed

language-dickinson-1.4.3.0: examples/starwars.dck

#!/usr/bin/env emd

%-

(:def main
  (:let
    [either
      (:oneof
        (| "Quarrel")
        (| "Vult")
        (| "Dengar")
        (| "Pike")
        (| "Holo")
        (| "Frik")
        (| "Blot"))]
    (:let
      [firstname
        (:oneof
          (| "Yert")
          (| "Wam")
          (| "Pommet")
          (| "Hodnar")
          (| "Po")
          (| "Jelk")
          (| "Boba")
          (| "Orchi")
          (| "Zorn")
          (| "Moth")
          (| "Chert")
          (| "Djam")
          (| "Lozenge")
          (| "Unkar")
          (| "Karp")
          (| "Jerek")
          (| "Marasmus")
          (| "Tote")
          (| "Jegg")
          (| "Bolt")
          (| "Aura")
          (| "Sonta")
          (| "Trudkin")
          (| "Slan")
          (| "Gorp")
          (| "Ferryk")
          (| "Chilblain")
          (| "Ren")
          (| "Miles")
          (| "Rolan")
          (| "Mon")
          (| "Ram")
          (| "Hurx")
          (| "Sheera")
          (| "Jekku")
          (| "Gorgle")
          (| "Sorkin")
          (| "Jenk")
          (| "Ferrus")
          (| "Tarp")
          (| "Wate")
          (| "Benzine")
          (| "Slurp")
          (| "Nuva")
          (| "Corbin")
          (| "Zara")
          (| "Quort")
          (| "Korra")
          (| "Lud")
          (| either))]
      [lastname
        (:oneof
          (| "Grinell")
          (| "Agate")
          (| "Ackbar")
          (| "Boll")
          (| "Vos")
          (| "Bon")
          (| "Tink")
          (| "Bum")
          (| "Cathar")
          (| "Barr")
          (| "Brik")
          (| "Gallus")
          (| "Scarf")
          (| "Pyce")
          (| "Plutt")
          (| "Blink")
          (| "Phanto")
          (| "Bliss")
          (| "Festoon")
          (| "Wet")
          (| "Gorpax")
          (| either))]
      "${(:flatten firstname)} ${(:flatten lastname)}")))