// Create alias for parameterized "string" type mailbox
typedef mailbox #(string) s_mbox;
 
// Define a component to send messages
class comp1;
 
    // Create a mailbox handle to put items
    s_mbox   names;   
 
  // Define a task to put items into the mailbox
  task send ();
    for (int i = 0; i < 3; i++) begin
      string s = $sformatf ("name_%0d", i);
          #1 $display ("[%0t] Comp1: Put %s", $time, s);
      names.put(s);      
    end
  endtask
endclass
 
// Define a second component to receive messages
class comp2;
 
  // Create a mailbox handle to receive items
  mailbox #(byte) list;
 
 
    // Create a loop that continuously gets an item from
    // the mailbox
  task receive ();
    forever begin
      string s;
      list.get(s);
            $display ("[%0t]    Comp2: Got %s", $time, s);
    end
  endtask
endclass
 
// Connect both mailbox handles at a higher level
module tb;
    // Declare a global mailbox and create both components
    s_mbox   m_mbx    = new();
    comp1   m_comp1  = new();
    comp2   m_comp2  = new();
 
    initial begin
      // Assign both mailbox handles in components with the 
      // global mailbox
      m_comp1.names = m_mbx;
      m_comp2.list = m_mbx;
 
      // Start both components, where comp1 keeps sending
      // and comp2 keeps receiving
      fork
        m_comp1.send();
        m_comp2.receive();
      join
    end
endmodule


/* 
Simulation Log:
---------------
irun: 15.20-s038: (c) Copyright 1995-2017 Cadence Design Systems, Inc.
      m_comp2.list = m_mbx;
                         |
ncvlog: *E,TYCMPAT (testbench.sv,49|25): assignment operator type check failed (expecting datatype compatible with 'mailbox' but found '$unit::s_mbox (mailbox)' instead).
irun: *E,VLGERR: An error occurred during parsing.  Review the log file for errors with the code *E and fix those identified problems to proceed.  Exiting with code (status 1).
Exit code expected: 0, received: 1
*/

// Code your design here