import Prelude hiding (*)

(*) :: Int -> Int -> Int
x * 0 = 0
x * y = x + x*(y-1)

$ ghci test.hs

import Prelude hiding (read)

import Prelude hiding (show)