procedure main()
  while read genre do
    case genre of
      'M': create_thread(male)
      'W': create_thread(female)
    end case
  end while
end procedure

procedure male()
  dance()
end procedure

procedure female()
  dance()
end procedure