;; Namers for geographical features.

(namer generic-island-names (grammar root 10
  (root (or 1 (foo "Ile d'" short-generic-names)
            2 (short-generic-names " Isle")
            10 (short-generic-names " Island")
            ))
  (foo "")  ; works around a bug
  ))

(namer generic-lake-names (grammar root 10
  (root (or 5 (foo "Lake " short-generic-names)
            1 (short-generic-names " Lake")
            ))
  (foo "")  ; works around a bug
  ))

(namer generic-bay-names (grammar root 10
  (root (or 1 (foo "Bay of " short-generic-names)
            5 (short-generic-names " Bay")
            ))
  (foo "")  ; works around a bug
  ))

(include "ng-weird")