--------------------------------------------------------------------------------

q4Default :: Q [(Text, Integer)]
q4Default = q4 $ C.fromGregorian 1993 7 1
q4Default :: Q [(Text, Integer)]
q4Default = q4 $ C.fromGregorian 1993 7 1
q4Default = q4 $ C.fromGregorian 1993 7 1