=><=
(set:$number to (random:1,20))
(set:$role to (either:
"ace",
"two",
"three",
"four",
"five",
"six",
"seven",
"eight",
"nine",
"ten",
"eleven",
"twelve",
"thirteen",
"angel",
"bard",
"beast",
"bull",
"chariot",
"cleric",
"daughter",
"devil",
"father",
"fool",
"garden",
"ghost",
"horse",
"hunter",
"judge",
"keeper",
"king",
"knave",
"knight",
"mage",
"minister",
"mother",
"page",
"palace",
"paladin",
"priest",
"priestess",
"prince",
"princess",
"queen",
"scholar",
"scion",
"smith",
"son",
"squire",
"tower",
"train",
"warlock",
"witch"
))
(set:$suit to (either:
"apples",
"arches",
"arrows",
"bells",
"birds",
"blooms",
"bones",
"bottles",
"candles",
"chains",
"chambers",
"clouds",
"clubs",
"coins",
"crosses",
"cups",
"diamonds",
"dice",
"disks",
"doors",
"eggs",
"elms",
"fences",
"hearts",
"knives",
"mirrors",
"moons",
"oceans",
"pines",
"rings",
"roads",
"scrolls",
"shields",
"ships",
"sigils",
"spades",
"spears",
"stars",
"staves",
"stones",
"storms",
"suns",
"swords",
"thorns",
"tomes",
"trails",
"vines",
"walls",
"wands",
"wheels",
"winds",
"wires"
))
(set:$major to (either:
"adornment",
"ale",
"ashes",
"bees",
"better angels",
"blackberries",
"blankets",
"books",
"bread",
"catharsis",
"cellars",
"clay",
"coal",
"coffee",
"compost",
"corn",
"dry wells",
"eagles",
"faltering",
"fishes",
"forget-me-not",
"fossils",
"gold",
"growth",
"hatchet",
"heaven's mountain",
"ichor",
"just returns",
"kind herbs",
"lightning",
"lilies",
"lions",
"lungs",
"maintenance",
"maps",
"moss",
"nourishment",
"oil",
"oysters",
"porcelain",
"power lines",
"rain",
"redoubt",
"respite",
"roots",
"sacrifice",
"salvage",
"seeds",
"shadows",
"shelter",
"sinew",
"smoke",
"snow",
"steel",
"stew",
"temperance",
"the archer",
"the arrow fletch",
"the beach",
"the buried seed",
"the cactus",
"the calyx",
"the cat",
"the chalice",
"the chorus",
"the compass",
"the crossroads",
"the deep sea",
"the doctor",
"the fiddlehead fern",
"the forest",
"the forge hammer",
"the goat",
"the hearth",
"the hydra",
"the lantern",
"the live oak",
"the looking-glass",
"the mermaid",
"the needle and thread",
"the open fist",
"the oracle",
"the peacock",
"the pearl",
"the pentacle",
"the pheasant",
"the poet's quill",
"the pomegranate",
"the precipice",
"the ram",
"the river",
"the scorpion",
"the serpent",
"the sparrow",
"the spider",
"the spider's web",
"the spine",
"the spoken wheel",
"the stag",
"the telephone",
"the twins",
"the void",
"the water bearer",
"the whale",
"the winged seed",
"trillium",
"wagers",
"wheat"
))
(if:$number > 1)[(print:$role) of (print:$suit)](if:$number is 1)[(print:$major)], (set:$ori to (either: "upright", "reversed"))(print:$ori)
######[[draw another->only page]]