method
select_dir dir =
selection <-
Some
dir ;
behav
#
select dir