40                     False

    40                     False

    41                     False

    41                     False

    42                     False

    42                     False

    43                     False

    43                     False

    44                     False

    44                     False

    45                     Nothing

    46                     Nothing

    46                     0

    47                     0

    47                     )

    48                     )

    48 

    49 

    49         writeChan chan $ Accept newClient

    50         writeChan chan $ Accept newClient