[1 of 1] Compiling Main             ( /in/foo.hs, /tmp/Main.o )

/in/foo.hs:8:17: error:
    * Couldn't match expected type `(Integer -> Integer -> Integer)
                                    -> Integer -> Integer'
                  with actual type `Integer'
    * The function `s * s' is applied to two arguments,
      but its type `Integer' has none
      In the expression: (s * s) mod b
      In an equation for `sth': sth s = (s * s) mod b