module B where bar :: () bar = ()