printParams (h:t) = do {
    exp <- calcExp h;
    putStr_IO $ showExp exp;
    printParams t;
  }
printParams (h:t) = do {
    exp <- calcExp h;
    putStr_IO $ showExp exp;
    printParams t;
  }
printParams (h:t) = do {
    exp <- calcExp h;
    putStr_IO $ showExp exp;
    printParams t;
  }