// Magma code for working with modular form 4000.1.bf.a


// Compute space of new eigenforms: 
//Please install CHIMP (https://github.com/edgarcosta/CHIMP) if you want to run this code
chi := DirichletCharacter("4000.799");
S:= CuspForms(chi, 1);
N := Newforms(S);