proc iml ;
    /* Define a scalar */
    scalar=5;

    /* Define a vector */
    /* row vector */
    row_vec={1 2 3 4 5 6};

    /* column vector */
    col_vec={1, 2, 3, 4, 5, 6};

    /* Define a (2 x 3) matrix */
    num_mat={1 2 3, 4 5 6};
    chr_mat={'Hello,', 'world! :D'};

    /* identity matrix */
    i_mat=I(6);

    /* column vector with repeated entries, 2 */
    mat_2=repeat(2, 3);

    /* transpose the vector vr */
    trow_vec=row_vec`;

    /* reshape the vector row_vec to a (3 x 2) matrix */
    mat1=shape(trow_vec, 3, 2);

    /* Print the output */
    print scalar, row_vec, col_vec, num_mat, chr_mat, i_mat, mat_2, trow_vec,
        mat1;

    /* Store the variables to the workspace */
    store scalar row_vec col_vec num_mat chr_mat i_mat mat_2 trow_vec mat1;
    quit;