diff --git a/SoccerFun.cabal b/SoccerFun.cabal
--- a/SoccerFun.cabal
+++ b/SoccerFun.cabal
@@ -1,5 +1,5 @@
 Name:           SoccerFun
-Version:        0.4
+Version:        0.4.1
 Copyright:      (c) 2010, Jan Rochel
 License:        BSD3
 License-File:   LICENSE
diff --git a/SoccerFun/MatchGame.hs b/SoccerFun/MatchGame.hs
--- a/SoccerFun/MatchGame.hs
+++ b/SoccerFun/MatchGame.hs
@@ -5,8 +5,13 @@
 import SoccerFun.Types
 import SoccerFun.Player
 import SoccerFun.MatchControl
+import SoccerFun.Field
+import SoccerFun.Team
 import SoccerFun.RefereeAction
 import SoccerFun.Prelude
+import SoccerFun.Referee.Ivanov
+import Control.Monad
+import System.Random
 
 
 showTime ∷ Minutes → String -- ^ display time in (mm:ss min) format
@@ -39,6 +44,13 @@
 logRefereeAction (DisplacePlayers ds) = Just $ "DisplacePlayers"
 logRefereeAction ContinueGame = Nothing
 logRefereeAction (TellMessage txt) = Just $ "TellMessage " ++ show txt
+
+setupMatch ∷ (Home → Field → Team) → (Home → Field → Team) → IO Match
+setupMatch t1 t2 = let
+		field = Field 70 105
+		team1 = t1 West field
+		team2 = t2 East field
+	in liftM (setMatchStart team1 team2 field (ivanovReferee field team1 team2) 1) newStdGen
 
 {- This module defines the match and tournament data structures.
 -}