Как я могу генерировать случайные значения в Haskell для любого значения объекта aeson

Я начал кодировать Haskell несколько недель назад. Я пытаюсь сделать что-то вроде случайного генератора JSON, используя aeson.

Предположим, что у меня есть такой объект json:

{
    name: "bob",
    age: 13,
    role: "admin"
}

Когда я использую aeson для его декодирования, я получаю следующее:

let Just json = decode str :: Maybe Object

-- fromList [("name",String "bob"),("age",Number 13.0),("role",String "admin")]

Я хочу создать список объектов JSON на основе "модели" боба:

[
 {
   name: <any random string>,
   age: <any random number>,
   role: <any random string>
 },
 ...
]

Я знаю, что мне нужно fmap по значениям HashMap, но я понятия не имею, как я могу создавать случайные значения на основе их типов.

Меня пока не беспокоят другие сложные значения, которые могут появиться в полях JSON. Сейчас я сосредоточен на числах и строках.