main addr = do
  polChan <- learningSwitch
  dynController addr polChan
main addr = do
  polChan <- learningSwitch
  dynController addr polChan
main addr = do
  polChan <- learningSwitch
  dynController addr polChan