module Asdf where

f :: String -> Int
f "0" = 0

g :: Int -> Int
g 0 = 0