letter :: Gen Word8
letter = frequency [(1, choose (65,90)), (1, choose (97,122)) ]
letter :: Gen Word8
letter = frequency [(1, choose (65,90)), (1, choose (97,122)) ]
letter = frequency [(1, choose (65,90)), (1, choose (97,122)) ]