method
set_player a = player <- a