myLookup _ [] = Nothing
myLookup key ((thiskey,thisval):rest) =
    if key == thiskey
       then Just thisval
       else myLookup key rest

fizzbuzz x = case (x `mod` 3, x `mod` 5) of
	(0, 0) -> "FizzBuzz"
        (0, _) -> "Fizz"
        (_, 0) -> "Buzz"
        _ -> show x

main = mapM_ (putStrLn . fizzbuzz) [1..100]