trocho :: Int -> (Int, Int)
trocho n 	|n <13 = error "No se admiten números menores a 14"
		|mod n 3 == 0 = (div n 3,0)
		|mod n 3 == 1 = (div n 3-5,2)
		|otherwise = (div n 3-2,1)


po :: Int -> String
po n 	|n == 1492 = "America"
	|n > 51 && mod n 2 == 0 = "2"
	|n < 51 && mod n 2 == 0 = "0"
	|n < 58 && mod n 2 == 1 = "Menor"
	|otherwise = "Mayor"


---Se agradece a Andrea Trenco. 06/10/2009