Evaluated proc troll {} {set ::current_troll [trolldb]}