H��3.1:
say "Information about the Formula1 teams RedBull and Ferrari:"

rb= .RedBull~new
rb~driver1="Verstappen"
rb~driver2="Perez"
rb~points1=25
rb~points2=12
rb~speed=very fast
TotalPointsrb=rb~TotalPointsrb(rb~points1,rb~points2)


fe= .Ferrari~new
fe~driver1="Leclerc"
fe~driver2="Sainz"
fe~points1=45
fe~points2=33
fe~speed=fast
TotalPointsfe=fe~TotalPointsfe(fe~points1,fe~points2)

say "   "

say "Red Bull Racing:"
say rb~driver1":"rb~points1"PTS"
say rb~driver2":"rb~points2"PTS"
say "Speed:"rb~speed
say "Total PTS:"TotalPointsrb

say"    "

say "Ferrari:"
say fe~driver1":"fe~points1"PTS"
say fe~driver2":"fe~points2"PTS"
say "Speed:"fe~speed
say "Total PTS:"TotalPointsfe

parse pull a



::class FormulaTeams
::attribute names

::class RedBull subclass FormulaTeams
::attribute driver1
::attribute driver2
::attribute points1
::attribute points2
::attribute speed
::method "TotalPointsrb"
use arg a,b
return(ABS(a)+ABS(b))


::class Ferrari subclass FormulaTeams
::attribute driver1
::attribute driver2
::attribute points1
::attribute points2
::attribute speed
::method "TotalPointsfe"
use arg a,b
return(ABS(a)+ABS(b))


H��3.2:

F1Teams = .relation ~new
F1Teams["Ferrari"] = "Leclerc"
F1Teams["Ferrari"] = "Sainz"
F1Teams["RedBull"] = "Verstappen"
F1Teams["RedBull"] = "Perez"
say "Following drivers are driving for RedBull and Ferrari right now:"
say F1Teams~allitems
say "Do you want to drive for Ferrari or RedBull?"
parse pull Team
say "What's your name?"
parse pull name
F1Teams~remove(Team)
F1Teams~put(name, Team)
say "The new drivers are:"
say F1Teams~allitems
parse pull a