module Test where{

test =
  [ case do {foo}, bar of{
      a | b, c -> d}, bar
    ];

test =
  [ case do {foo}, bar of {a | b, c -> d}, bar ];

test =
  [ do {do {do {foo}}}, bar ];

test =
  [ \foo -> foo, bar ];

test = foo where{
  bar =
    case a, b of{
      c, d | d == [case true, w of {1, a -> true}, false ] -> d;
      e, d | do {what}, do {that }-> d}}}

<eof>