RosettaCodeData/Task/Array-length/SNOBOL4/array-length.sno

    ar = ARRAY('2,2')
    ar<1,1> = 'apple'
    ar<1,2> = 'first'
    ar<2,1> = 'orange'
    ar<2,2> = 'second'
    OUTPUT = IDENT(DATATYPE(ar), 'ARRAY') PROTOTYPE(ar)
end