main = do
nota1 <- readNum
nota2 <- readNum
promedio <- (nota1 + nota2) / 2
if promedio >= 60
then
putStr(nombre
++ " ha pasado el curso") else
putStr(nombre
++ " no ha pasado el curso") where
readNum = do
bWFpbiA9IGRvCgkgbm9tYnJlIDwtIGdldExpbmUKCSBub3RhMSA8LSByZWFkTnVtCgkgbm90YTIgPC0gcmVhZE51bQoJIHByb21lZGlvIDwtIChub3RhMSArIG5vdGEyKSAvIDIKCSBpZiBwcm9tZWRpbyA+PSA2MAoJIHRoZW4gCgkJcHV0U3RyKG5vbWJyZSArKyAiIGhhIHBhc2FkbyBlbCBjdXJzbyIpCgkgZWxzZQoJCXB1dFN0cihub21icmUgKysgIiBubyBoYSBwYXNhZG8gZWwgY3Vyc28iKQogICAgICAgd2hlcmUKICAgICAgICAgcmVhZE51bSA6OiBJTyBGbG9hdAogICAgICAgICByZWFkTnVtID0gZG8KICAgICAgICAgbGluZSA8LSBnZXRMaW5lCiAgICAgICAgIHJlYWRJTyBsaW5l