CORE::sub CORE::for { CORE::print CORE::lc CORE::for $ CORE::for } CORE::for ( JAPH:: ){ CORE::for $ CORE::for (( CORE::m ).| CORE::time )g) CORE::x CORE::not $ CORE::lc ){ CORE::do CORE::for ( CORE::lc )} CORE::lc } CORE::__DATA__ )