-- generic case
genStore addr val
    = getTBAAMeta topN >>= genStore_slow addr val
genStore addr val
    = getTBAAMeta topN >>= genStore_slow addr val
genStore addr val
    = getTBAAMeta topN >>= genStore_slow addr val