module Main where
findMe x list = findMeP list 1
where
findMeP [] _ = 0
findMeP (y:ys) n
| x == y = n
main = do
print $ findMe
11 [1..10]
bW9kdWxlIE1haW4gd2hlcmUKCmZpbmRNZSB4IGxpc3QgPSBmaW5kTWVQIGxpc3QgMQogIHdoZXJlCiAgICBmaW5kTWVQIFtdIF8gPSAwCiAgICBmaW5kTWVQICh5OnlzKSBuCiAgICAgIHwgeCA9PSB5ICAgID0gbgogICAgICB8IG90aGVyd2lzZSA9IGZpbmRNZVAgeXMgKG4gKyAxKQogICAgICAKbWFpbiA6OiBJTyAoKQptYWluID0gZG8KICBwcmludCAkIGZpbmRNZSA1IFtdCiAgcHJpbnQgJCBmaW5kTWUgNSBbMS4uMTBdCiAgcHJpbnQgJCBmaW5kTWUgMTEgWzEuLjEwXQo=