allAvailableTeams :: [Home FootballField -> Team]
allAvailableTeams = [ Team_MartLubbers
, Team_MiniEffies
- , Harmless
, Team_Student_Rounds
, Team_Student_Slalom
, Team_Student_Passing
, 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