File2 := File clone

File2 open := method (fn,
  if (fn beginsWithSeq("/tmp/foo"),
    File_open(tiedostoNimi),
    "Access denied"
  )
)

Core File = File2