[ (])
{
  ( /\\) 1 index 3 mod 1 getinterval print 3 idiv
} /@
{
  5 1 count
  {
    0 ] ] def
  } for
} /!
{
  {
    23362 2383 26457 2395 16975 26413 16981 26458 16954 26412
  } (%stdin) (r) file read
  {
    10 mod get ! exch @ ] ] exch [ def / = ([) @
    {
      ] ] ] /
    } def [ =
  } if
} >> begin ! [