*:/mail [$] = >>>
    assign(@items, array(parse_args($)))
    assign(@first, array_get(@items, 0))
    
    msg(array_get(@items, 0))
    
    switch(to_lower(@first),
        'send',
            ifelse(array_index_exists(@items, 1),
                # /mail send Deaygo It lives!
                msg(player() 'sends mail to' @items[1] 'with message' array_implode(@items[2..])) 
            , # else
                # /mail send garf
                msg('Usage: /mail send <player> <message>') 
            ),
        'read',
            ifelse(array_index_exists(@items, 1),
                # /mail read 1
                msg('reading one mail!') 
            , # else
                # /mail read
                msg('reading all mail!') 
            ),
        'clear',
            # /mail clear
            msg('clearing!),
        msg(array_implode(@items))
    )
<<<