arbitraryText :: Gen Text
arbitraryText = elements
    [ "hello"
    , "no way"
    , "whatever"
    , "ok"
    ]
arbitraryText :: Gen Text
arbitraryText = elements
    [ "hello"
    , "no way"
    , "whatever"
    , "ok"
    ]
arbitraryText = elements
    [ "hello"
    , "no way"
    , "whatever"
    , "ok"
    ]