import Team_Student_DeepPass_Assignment
import Team_Student_Keeper_Assignment
import Team_MartLubbers
+import Team_Harmless
allAvailableTeams :: [Home FootballField -> Team]
allAvailableTeams = [ Team_MartLubbers
, Team_Opponent_Passing
, Team_Opponent_DeepPass
, Team_Opponent_Keeper
- ]
+ ] ++ [MostlyHarmless (11, Level n) \\ n <- [0..10]]
instance nameOf Team where nameOf players
= case players of