#Utilities

index<-c(-2:6)

plot(index,U2[98:106], type="l",xlab="generations",ylab="Utility")
lines(index,U1[98:106], lty=2)


legend("bottomright",  c("announced reform", "unannounced reform"), col = c(1,1), lty = 1:2)