Dim Devel_Team(N) As New Computer_Engineer
For Each Engineer As Computer_Engineer In Devel_Team
If Engineer.Beauty > 0.3 AND Engineer.HasGirlfriend
Engineer.Dispose()
End If
Next
'Morale: un ingegnere è sempre brutto e sfigato!