1 2 3 4 5 6 7 8 9 10 11 12 13 14
som a b a row m b row n c column n fsom a n b m c a real n integer b real m integer c real out sequence c ***********************